Ответы
Ответ дал:
1
Відповідь:
program SumEvenNumbers;
var
i, Sum: integer;
begin
Sum := 0;
for i := 2 to 1000 step 2 do
begin
Sum := Sum + i;
end;
writeln('Сумма четных чисел от 2 до 1000: ', Sum);
readln;
end.
Пояснення:
Когда программа запущена, она использует цикл for для перебора всех четных чисел от 2 до 1000. Если число четное, то оно добавляется к переменной Sum, которая сохраняет сумму всех четных чисел. После того, как цикл закончился, программа выводит результат на экран.
Вас заинтересует
4 месяца назад
4 месяца назад
4 месяца назад
4 месяца назад
2 года назад
2 года назад
7 лет назад
7 лет назад