СРОЧНО!!!!!посчитать сумму чётных чисел в интервале от 8 до 1000

СРОЧНО!!!!!
посчитать сумму чётных чисел в интервале от 8 до 1000

Задать свой вопрос
1 ответ
Program P3;// ИМЯ ПРОГРАММЫvar k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХbegin//НАЧАЛО ПРОГРАММЫs:=0; for k:=8 to 1000 do if k mod 2=0 thens:=s+k;writeln('сумма четных чисел = ',s); readln end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт