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

Узнай цену своей работы

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

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

Решение задачи: «Вычислить сумму четных и нечетных чисел в последовательности»

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.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные: sn, sc, i, n - все целочисленного типа.
  2. Затем происходит чтение введенного пользователем числа n.
  3. Переменная i инициализируется значением 0.
  4. Создаются две переменные, sn и sc, которые будут хранить суммы четных и нечетных чисел соответственно. Обе переменные инициализируются нулем.
  5. Запускается цикл While, который будет выполняться до тех пор, пока значение переменной i не станет больше или равно значению n.
  6. Внутри цикла значение переменной i увеличивается на 1.
  7. Если текущее значение i является нечетным числом (функция Odd(i) возвращает true), то к переменной sn добавляется значение i.
  8. В противном случае (если i четное), к переменной sc добавляется значение i.
  9. По завершении цикла выводится сообщение с суммами четных и нечетных чисел.
  10. Конец программы.

Оцени полезность:

7   голосов , оценка 3.286 из 5
Похожие ответы