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

Question

Информатика

Славуся

17 сентября, 09:45

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

+4

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