Question

Срочно. Выведите все четные числа в диапазоне от 0 до 100. Программа - Паскаль. Чем проще, тем лучше. Программа должна работать.

Answer 1

var i: integer;

begin  

for i:=0 to 100 do

if i mod 2 = 0 then write(i,' ');

end.