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

Question

Информатика

Манюся

1 мая, 01:45

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

+3

Ответы (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.