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

Pinno4ka Pinno4ka    3   29.05.2019 18:50    0

Ответы
igorlevocko igorlevocko  29.06.2020 01:05
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика