Помогите написать код на паскале(для 9 класса)

Question

Помогите написать код на паскале(для 9 класса)

qzeevee Ученик (88), открыт 1 неделю назад

Задача:
Найти и вывести на экран все целые числа из промежутка от 1 до K, которые заканчиваются на четную цифру.
Формат ввода:
На вход подается неотрицательное, целое число K, не превосходящее 30000.
Формат вывода:
Искомые числе в одну строку через пробел.
Пример входных данных
15
Пример выходных данных
2 4 6 8 10 12 14

Answer 1

Александр Татыржа Знаток (272) 1 неделю назад

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.

Александр ТатыржаЗнаток (272) 1 неделю назад

Объявление переменных: Мы объявляем переменные K и i типа Integer.
Чтение значения K: Считываем значение K с помощью ReadLn.
Проверка условия: Проверяем, что K неотрицательное и не превышает 30000. Если условие не выполняется, выводим сообщение об ошибке и завершаем программу.
Цикл для поиска четных чисел: Используем цикл for для перебора всех чисел от 1 до K. Если число четное (проверяется с помощью i mod 2 = 0), то мы выводим его на экран.
Форматирование вывода: Числа выводятся через пробел, и в конце добавляется переход на новую строку для удобства.
Вы можете скопировать этот код в среду программирования Pascal и протестировать его с различными значениями K.

Answer 2

Код:

 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.

Answer 3

 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.