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

1

Ответы и объяснения

2014-01-08T23:54:30+04:00
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.
500 и 4465760273694720000
Спасибо огромнейшее
Комментарий удален