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

Question

Информатика

Иулия

13 июля, 19:09

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

+2

Ответы (2)

Знаете ответ?

Мальвина · Answer 1

Var i, sum integer;

begin

sum=0;

for i = 1 to 1000 do

if (i mod 2=1) then

sum=sum+i;

end.

Анастасиюшка · Answer 2

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.