Вычислить сумму четных и произведение нечетных чисел - вопрос №8759394 от dedrina 18.01.2022 04:51

Question

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

dedrina · 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.