Question

Найти количество чётных чисел от 1 до 100,программа Pascal abc

Answer 1

var i,n:integer;

begin

   n:=0;

   for i:=1 to 100 do

      if (i mod 2 = 0) then inc(n);

   writeln(n)

end.