👤

De afișat numerele pare din intervalul a, b introduse de la tastatura
PS rezolvat în turbo pascal


Răspuns :

program AfisarePare;

var a, b, num:integer;

begin

 write('a='); read(a);

 write('b='); read(b);

 if (a mod 2=1) then a:=a+1;

 num:=a;

 writeln('Numerele pare din intervalul [a, b] sunt: ');

 while num<=b do

   begin

      write(num, ' ');

      num:=num+2;

   end;

end.