Question

Напишите программу ,которая находит все четные натуральные числа ,не превосходящие число N

Answer 1

Ответ:

var

N,i:longint;

begin

read(N);

for i:=1 to N do

if (i mod 2 = 0) then write(i,' ');

end.

Объяснение:

вот тебе прога