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

Plushtrap Plushtrap    1   25.09.2019 22:50    1

Ответы
sveta05011 sveta05011  08.10.2020 19:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика