Числовой ряд из 10 чисел задаётся генератором случайных чисел в диапазоне от 1 до 20. Найти сумму чисел, кратных 4

15 Мар 2020 в 19:41
172 +2
0
Ответы
1

var a,s,i: integer;

begin

s:=0;

for i:=1 to 10 do

 begin

 a:=random(20)+1;

 write(a,' ');

 if a mod 4=0 then s:=s+a;

 end;

writeln;

writeln(s);

end.

17 Мар 2020 в 14:09
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир