найти сумму четных чисел в промежутке от 1 до 1000 (3 способа)

Question

Информатика

Рена

21 мая, 12:34

найти сумму четных чисел в промежутке от 1 до 1000 (3 способа)

+3

Ответы (1)

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

Келестина · Answer 1

var i, s:integer;

{1}begin

s:=0;

for i:=1 to 1000 do

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

end.

{2}begin

for i:=1 to 1000 do

if odd (i) then s:=s+i;

{3}a:array[1 ... 500] of integer;

n:integer;

for i:=1 to 1000 do

if odd (i) then a[i]:=i;

n:=i;

for i:=1 to n do

s:=a[i]+s;

end.