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

0 голосов
70 просмотров

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


Информатика (12 баллов) | 70 просмотров
Дан 1 ответ
0 голосов

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.
(2.3k баллов)