in Informatica

Problema Pascal rezolvata

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.

Voteaza acest articol

Add a Comment

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate cu *