Составте программу вычеления суммы нечётных и произведения чётных чисел в диапазоне от 40 до 60.

Question

Информатика

Харламп

26 августа, 10:49

Составте программу вычеления суммы нечётных и произведения чётных чисел в диапазоне от 40 до 60.

+2

Ответы (1)

Знаете ответ?

Ермил · Answer 1

Program gt;

var i, s, p:longint;

begin

s:=0;

p:=1;

for i:=40 to 60 do

begin

if (i mod 2=0) then p:=p*i else s:=s+i;

end;

writeln (s,' ', p) ;

end.