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

Question

Информатика

Соломонида

10 августа, 22:07

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

+5

Ответы (2)

Знаете ответ на вопрос?

Матфий · Answer 1

Program sum_nechet;

var sum, i:integer;

begin

sum:=0;

for i:=1 to 1000 do

if i mod 2=0 then sum:=sum+i;

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

end.

Захарка · Answer 2

Var i, sum integer;

begin

sum=0;

for i = 1 to 1000 do

if (i mod 2=1) then

sum=sum+i;

end.