Найти сумму и произведение целых чисел в диапазоне от 1 до 150 кратных 5

Question

Информатика

Асмабану

14 ноября, 17:17

Найти сумму и произведение целых чисел в диапазоне от 1 до 150 кратных 5

+3

Ответы (1)

Знаете ответ на вопрос?

Офонасей · Answer 1

var

a, sum, pr: integer;

begin

pr : = 1;

for a : = 1 to 150 do

if a mod 5 = 0 then

begin

sum : = sum + a;

pr : = pr * a;

end;

writeln ('Сумма кратных 5 = ', sum, #10, 'Произведение кратных 5 = ', pr) ;

end.