найти сумму четных чисел в промежутке от 1 до 1000 (3 способа)
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
if odd(i) then s:=s+i;
{3}a:array[1..500] of integer;
n:integer;
if odd(i) then a[i]:=i;
n:=i;
for i:=1 to n do
s:=a[i]+s;
В какой оболочке земли живёт большинство живых организмов?
Из каких неживых частей состоит экосистема
На какие расы делятся население земли
Определение статуса военнослужащего (краткий ответ!!)
Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.