14. Дано натуральное число N. Вывести на экран все чётные числа от 0 до N var N: integer; x: read; writeln: ('введите N'); for N:=0 to 10 do; СРОЧНО НАДО РЕШИТЬ, ЧТО НУЖНО ДАЛЬШЕ ДЕЛАТЬ?????
в цикле от 0 до N делишь все числа на 2
если в остатке 0 то оно четное
вот программа:
var
n : integer;
begin
write('введите число N ');
readln(n);
for var i := 0 to n do if i mod 2 = 0 then writeln(i);
end.
Спасибо вам большое!