Написать программу в паскале. найти произведение и сумму чисел кратных 3 от а до б

Question

Информатика

Марианыч

15 июля, 11:49

Написать программу в паскале. найти произведение и сумму чисел кратных 3 от а до б

+5

Ответы (1)

Знаете ответ?

Ританя · Answer 1

Это первый класс uses crt; var a, b, sum, pro:integer; begin readln (a, b) ; for a to b do if a mod 3 = 0 then sum:=sum+a; for a to b do if a mod 3 = 0 then pro:=pro+a; write (summa='sum','proizvedenie='pro) ; end.