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

Question

Информатика

Еняша

9 октября, 23:53

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

+2

Ответы (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.