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

Question

Информатика

Любомысл

29 ноября, 18:49

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

+5

Ответы (1)

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

Адамушка · Answer 1

Вот:

var a:array[1 ... 150]of integer;

i, s, p:integer;

begin

p:=1;

for i:=2 to 150 do

begin

a[i]:=a[i-1]+1;

if a[i] mod 5=0 then

begin

s:=s+a[i];

p:=p*a[i];

end;

end;

writeln ('summa:', s,' proizvedenie:', p) ;

end.