14. дано натуральное число n. вывести на экран все чётные числа от 0 до n var n: integer; x: read; writeln: ('введите n'); for n: =0 to 10 do; надо решить, что нужно дальше

вова993 вова993    2   07.10.2019 01:20    0

Ответы
LizaLongoo LizaLongoo  10.10.2020 00:44

в цикле от 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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика