Вывести на экран все четные числа, начиная с числа n и заканчивая числом m подсказска: i это текущие значения n до m значит от начала до конца , начальное число n, концовое m mod использоватсья надо, поомгите ,
program z1; uses crt; var n,m,i:integer; begin repeat writeln('Введите числа'); readln(n,m); until n<m; for i:=n to m do begin if i mod 2 =0 then write(i:4); end; end.
program z1;
uses crt;
var n,m,i:integer;
begin
repeat
writeln('Введите числа');
readln(n,m);
until n<m;
for i:=n to m do
begin
if i mod 2 =0 then write(i:4);
end;
end.