Question

Найти сумму чётных чисел от 2 до 1000.
На паскале

Answer 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, которая сохраняет сумму всех четных чисел. После того, как цикл закончился, программа выводит результат на экран.