Вычислить сумму четных и произведение нечетных чисел - вопрос №8760071 от kira309 18.11.2021 01:11

Question

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

kira309 · Answer

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.