Натуральное число называется чётным, если оно делится на два без остака. Напишите програм-му, которая находит все чётные натуральные числа, не превосходящие заданное число N.
Формат входных данных
Программа считывает одно целое число N (2 < N < 10000).
Формат выходных данных
Выведите все чётные натуральные числа не превосходящие N. Паскаль
Формат входных данных
Программа считывает одно целое число N (2 < N < 10000).
Формат выходных данных
Выведите все чётные натуральные числа не превосходящие N. Паскаль
More Questions From This User See All
Answers & Comments
Verified answer
Ответ: Вот код на языке 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 без остатка, оно печатает это число. Это гарантирует, что будут выведены только четные числа.