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

Question

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

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.