Вычислить сумму четных и нечетных чисел в последовательности - 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.
Объяснение кода листинга программы
- В начале кода объявляются переменные: sn, sc, i, n - все целочисленного типа.
- Затем происходит чтение введенного пользователем числа n.
- Переменная i инициализируется значением 0.
- Создаются две переменные, sn и sc, которые будут хранить суммы четных и нечетных чисел соответственно. Обе переменные инициализируются нулем.
- Запускается цикл While, который будет выполняться до тех пор, пока значение переменной i не станет больше или равно значению n.
- Внутри цикла значение переменной i увеличивается на 1.
- Если текущее значение i является нечетным числом (функция Odd(i) возвращает true), то к переменной sn добавляется значение i.
- В противном случае (если i четное), к переменной sc добавляется значение i.
- По завершении цикла выводится сообщение с суммами четных и нечетных чисел.
- Конец программы.