ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ по информатике.

даны числа от 50 до 100.найти произведение тех чисел которые кратны 8 иначе найти сумму тех чисел которые кратны 5.

1

Ответы и объяснения

  • Участник Знаний
2014-03-07T16:06:24+00:00
Var i:integer;p,s:real;
begin
p:=1;
s:=0;
for i:=50 to 100 do
if (i mod 8 = 0)then
p:=p*i;
writeln ('Произведение: ',p);
for i:=50 to 100 do
if (i mod 5 = 0)then
s:=s+i;
writeln ('Сумма: ',s);
end.