14. Дано натуральное число N. Вывести ** экран все чётные числа от 0 до N var N: integer;...

0 голосов
63 просмотров

14. Дано натуральное число N. Вывести на экран все чётные числа от 0 до N var N: integer; x: read; writeln: ('введите N'); for N:=0 to 10 do; СРОЧНО НАДО РЕШИТЬ, ЧТО НУЖНО ДАЛЬШЕ ДЕЛАТЬ?????


Информатика (12 баллов) | 63 просмотров
Дан 1 ответ
0 голосов

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

(1.2k баллов)
0

Спасибо вам большое!