Пользователь вводит число N программа считает сумму четных чисел до N и сумму не четных чисел до N. Написать алгоритм решения

Question

Ева Ларина

Информатика

24 января, 17:45

Пользователь вводит число N программа считает сумму четных чисел до N и сумму не четных чисел до N. Написать алгоритм решения

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Мария Волкова · Answer 1

var

N, i, sum: integer;

begin

writeln ('Введите N:');

readln (N);

sum : = 0;

for i : = 1 to N do

if (i mod 2) = 0 then

sum + = i;

write ('Сумма четных чисел = ', sum);

end.