Посчитать сумму чётных чисел в промежутке от 8 до 1000
140
ОТВЕТЫ
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.
207
Отв. дан
Managhma
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Umfym
15 баллов. Помоги пожалуйста Нужно написать алгоритм заваривания чая. ...
2019-01-09 11:29:22
Sazapgakp
Дан массив целых чисел. Найти сумму ЧЕТНЫХ элементов и ...
2019-01-09 11:26:09
Иннокентий
На планете Нетология живут инопланетяне с именами Фокс, Форд ...
2019-01-09 11:25:23
Kaomtemav
1.Какие задачи, связанные с массивами можно выполнить с помощью ...
2019-01-09 11:25:18