Прикольную медаль тому кто даст ответ!!! Как cделать так что бы в паскале выводились...

Question

Прикольную медаль тому кто даст ответ!!!

Как cделать так что бы в паскале выводились четные цифры. от 0 до 100

Answer 1

Var
i: byte;
begin
for i:=0 to 100 do 
if i mod 2 = 0 then write(i:4);
end.

Comments

точнее for i:=0 to 100