Вычислить сумму четных и произведение нечетных чисел в из n введенных.

НастёнышЬ14 НастёнышЬ14    1   19.09.2019 11:40    0

Ответы
nikita577344 nikita577344  08.10.2020 02:12
Var  
 n,i: Integer;  
 s,s1: Longint;
BEGIN
Writeln('Введите N: ');
Readln(n);
For i:=1 to n do
If i mod 2=0 Then s:=s+i Else s1:=s1+i;
Writeln('Сумма четных: ',s);
Writeln('Сумма нечетных: ',s1);
Readln
END.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика