Question

Дано натуральное число N. Написать программу, выводящую последовательность чётных чисел.

Answer 1

Program test;

Var n,i:integer;

Begin

Readln (n);

i:=2;

while i<=n do

begin

write(i,' ');

i:=i+2;

end

End.