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

  1. Пожалуйста, помогите! нужно вычислить сумму четных и нечетных чисел в последовательности от 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. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Вычислить С при любых значениях x, а, b:

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.