Посчитать сумму чётных чисел в промежутке от 8 до 1000

Question

Информатика

Павлуха

3 марта, 04:21

Посчитать сумму чётных чисел в промежутке от 8 до 1000

+2

Ответы (1)

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

Христоша · Answer 1

var i, s:integer; {1}begins:=0; for i:=1 to 1000 doif i mod 2=0 then s:=s+i; end.{2}beginfor i:=1 to 1000 doif odd (i) then s:=s+i; {3}a:array[1 ... 500] of integer; n:integer; for i:=1 to 1000 doif odd (i) then a[i]:=i; n:=i; for i:=1 to n dos:=a[i]+s; end.