Question

elaborati un program.Se dau 2 numere a si b.Afisati toate numerele pare din acest interval a si b.
In pascal .
​

Answer 1

Răspuns:

program numere;

var

   a:integer;

   b:integer;

   i:integer;

begin

 readln(a,b);

 for i:=a to b do

 begin

   if i mod 2 = 0 then

    writeln(i);

 end

end.

Explicație: