8+9+10 ... + 35 найти сумму произведение четных чисел. составить программу на паскале

Question

Информатика

Донат

30 мая, 21:39

8+9+10 ... + 35 найти сумму произведение четных чисел. составить программу на паскале

+4

Ответы (1)

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

Самбила · Answer 1

Var s, p, real;

begin

p:=1;

s:=0;

for var i:=8 to 35 do

if i mod 2 = 0 then begin

s:=s+i;

p:=p*i;

end;

writeln ('Сумма четных = ', s,', Произведенние четных = ', p) ;

end.