Question

Задача:

Найти и вывести на экран все целые числа из промежутка от 1 до K, которые заканчиваются на четную цифру.

Формат ввода:

На вход подается неотрицательное, целое число K, не превосходящее 30000.

Формат вывода:

Искомые числе в одну строку через пробел.

Answer 1

var k,i:integer;

BEGIN

read(k);

i:=2;

while i<=k do begin

write(i,' ');

i:=i+2;

end;

end.