Составьте программу, которая находит количество и произведение всех чисел, кратных 3, на промежутке от 15 до 95.

Question

Информатика

Фелициана

15 сентября, 08:35

Составьте программу, которая находит количество и произведение всех чисел, кратных 3, на промежутке от 15 до 95.

+2

Ответы (1)

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

Еленка · Answer 1

Var a, b, c : integer; beginfor b:=15 to 95 doif b mod 3 = 0 thenbegina:=a+1; c:=c+a; end; writeln ('Кол-во чисел = ', a) ; writeln ('Сумма чисел = ', c) ; end.