Pascal:Fisierul date.in contine cel mult 100000 numere naturale separate prin spatii, fiecare numar avand cel mult noua cifre. Sa se realizeze un program care scrie in fisierul date.out, pe o singura linie, separate prin cate un spatiu, toate numerele din date.in care au prima cifra para.
program numere_2x;
uses
crt;
var f,g:text;
nr,n,c:integer;
begin
clrscr;
assign(f,’date.in’);reset(f);
assign(g,’date.out’);rewrite(g);
write(g, ‘numerele care au prima cifra para: ‘);
while not eoln(f) do
begin
read(f,nr);
n:=nr;
while nr <> 0 do
begin
c:=nr mod 10;nr:= nr div 10;
end;
{writeln(‘prima cifra este ‘,c);}
if c mod 2 = 0 then
write(g, n,’ ‘);
end;
close(f);
close(g);
readkey;
end.
