даны два числа a и b (a

Вопрос школьника по предмету Информатика

даны два числа a и b (a

Ответ учителя по предмету Информатика

var a,b,i,k: integer;

begin

read(a,b);

k:=0;

for i:=a to b do begin

if i mod 2=0 then k:=k+1;

if i mod 2=0 then writeln (‘i=’,i);

end;

writeln (‘k=’,k);

end.