Помогите написать код на паскале(для 9 класса)
Задача:
Найти и вывести на экран все целые числа из промежутка от 1 до K, которые заканчиваются на четную цифру.
Формат ввода:
На вход подается неотрицательное, целое число K, не превосходящее 30000.
Формат вывода:
Искомые числе в одну строку через пробел.
Пример входных данных
15
Пример выходных данных
2 4 6 8 10 12 14
Код:
program EvenEndingNumbers;
var
K, i: Integer;
begin
// Ввод числа K
Readln(K);
// Проходим по всем числам от 1 до K
for i := 1 to K do begin
// Проверяем, заканчивается ли число на четную цифру
if (i mod 10) in [0, 2, 4, 6, 8] then
Write(i, ' ');
end;
// Выводим перевод строки в конце
Writeln;
end.
program EvenNumbers;
var
K, i: Integer;
begin
// Чтение значения K
ReadLn(K);
// Проверка, что K не больше 30000
if (K < 0) or (K > 30000) then
begin
WriteLn('Ошибка: K должно быть неотрицательным и не превышать 30000.');
Exit;
end;
// Вывод всех четных чисел от 1 до K
for i := 1 to K do
begin
if (i mod 2 = 0) then
begin
Write(i, ' ');
end;
end;
// Переход на новую строку после вывода
WriteLn;
end.
var i, K: integer;
begin
readln(K);
i := 2;
while (i <= K) and (i <= 30000) do
begin
write(i, ' ');
inc(i, 2);
end;
readln;
end.