Вычислить сумму четных и нечетных чисел в последовательности - Turbo Pascal

Формулировка задачи:

Пожалуйста, помогите! нужно вычислить сумму четных и нечетных чисел в последовательности от 1 до N. N вводим. суммы находим отдельно, но в одной программе. Решение через цикл с предусловием. и если можно, блок схему к этой же задаче. Буду очень благодарна!)))

Код к задаче: «Вычислить сумму четных и нечетных чисел в последовательности - Turbo Pascal»

textual
Var
  sn,sc,i,n: Integer;
BEGIN
Write('Введите N: ');
Readln(n);
i:=0;
sn:=0;
sc:=0;
While i<n do
begin
  i:=i+1;
  If Odd(i) Then
  sn:=sn+i
  Else
  sc:=sc+i;
end;
Writeln('Сумма четных = ',sc);
Writeln('Сумма нечетных = ',sn);
Readln
END.

7   голосов, оценка 3.286 из 5


СОХРАНИТЬ ССЫЛКУ