Сделайте программу Pascal, которая для натурального числа, считываемого с клавиатуры, покажет нам результат вычисления чисел находящихся до заданного числа
a) сумма чётных чисел
b) сумма нечётных чисел
c)сумма чётных и нечётных
Сделайте программу Pascal, которая для натурального числа, считываемого с клавиатуры, покажет нам результат вычисления чисел находящихся до заданного числа
a) сумма чётных чисел
b) сумма нечётных чисел
c)сумма чётных и нечётных
a) сумма чётных чисел
b) сумма нечётных чисел
c)сумма чётных и нечётных
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumOfNumbers;
var
num, i, sumEven, sumOdd, totalSum: integer;
begin
sumEven := 0;
sumOdd := 0;
totalSum := 0;
writeln('Enter a natural number: ');
readln(num);
for i := 1 to num do
totalSum := totalSum + i;begin
if i mod 2 = 0 then
sumEven := sumEven + i
else
sumOdd := sumOdd + i;
end;
writeln('Sum of even numbers: ', sumEven);
writeln('Sum of odd numbers: ', sumOdd);
writeln('Total sum of numbers: ', totalSum);
end.