Написать программу на языке программирования Paskal, которая будет находить сумму всех четных чисел в диапазоне от 1 до N (N- вводится с клавиатуры)
Написать программу на языке программирования Paskal, которая будет находить сумму всех четных чисел в диапазоне от 1 до N (N- вводится с клавиатуры)
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumEvenNumbers;
var
N, i, sum: integer;
begin
sum := 0;
write('Enter N: ');
readln(N);
for i := 1 to N do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('The sum of all even numbers from 1 to ', N, ' is: ', sum);
end.