Question

ИНФА НЕ ШАРЮ ПРОСТО В ПАСКАЛЕ ABC (30 БАЛЛОВ)
Задача:

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

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

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

Пример входных данных
15

Пример выходных данных
2 4 6 8 10 12 14

Answer 1

var k,i:integer;
begin
read(k);
for i:=1 to k do begin
if i mod(2)=0 then
write(i,' ');
end;
end.