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

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

Задать свой вопрос
1 ответ
var i,s:integer;1begins:=0;for i:=1 to 1000  doif i mod 2=0 then s:=s+i;end.2beginfor i:=1 to 1000 doif odd(i) then s:=s+i;3a: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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт