Question

Натуральное число называется чётным, если оно делится на два без остака. Напишите програм-му, которая находит все чётные натуральные числа, не превосходящие заданное число N.
Формат входных данных
Программа считывает одно целое число N (2 < N < 10000).
Формат выходных данных
Выведите все чётные натуральные числа не превосходящие N. Паскаль

Answer 1

Ответ: Вот код на языке Pascal:

var

 i, n: integer;

begin

 readln(n);

 for i := 2 to n do

 begin

   if (i mod 2 = 0) then

     writeln(i);

 end;

end.
Этот код принимает на вход n и затем выполняет цикл от 2 до n, увеличивая каждый раз на 2. Если текущее число i делится на 2 без остатка, оно печатает это число. Это гарантирует, что будут выведены только четные числа.