Конструктор алгоритмов . найти сумму целых положительных чисел: больших 20, меньших 100, кратных 3 и заканчивающихся на 2/4/8.

заранее

Arhci43345 Arhci43345    3   10.10.2019 20:55    4

Ответы
Kaefwf Kaefwf  10.10.2020 05:56

var n,sum:integer;

begin

 for n:=20 to 100 do begin

   if(n mod 3 = 0)and((n mod 10 = 2)or

   (n mod 10 = 4)or

   (n mod 10 = 8))then sum:= sum + n;

 end;

 write(sum);

end.

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