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

Question

Информатика

Димаха

7 октября, 19:00

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

+5

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