Паскаль. Найти сумму четных чисел от 15 до 100.

Паскаль. Отыскать сумму четных чисел от 15 до 100.

Задать свой вопрос
Олег Полиенов
добавил
Санек Нагайцев
с тобой изи 5 по информатике)
Arsenij
а не 3 либо 4(
Alena Lushova
У меня неудача с русским кстати. Мне тоже наверняка помогать будешь ок?)
Alja Dobroljubskaja
в принципе могу. по истории я спецназ, если что.
Тимур Горцын
кстати я могу посоветовать людей которым нужно будет посодействовать
Магазнов Женя
по истории
Рита Кижватова
не... спасибо. у меня с историей все гладко. учусь в школе с профи по информатике.
Виолетта Черняга
ржака
Esenija Kleckina
там, ксати, внизу точно такая же задачка. решение уже удалили. можешь повторно написать и баллы получить, если хочешь.
2 ответа

begin

 Range(15, 100).Where(el -gt; el.IsEven).Sum.Println;

end.

var

 i, k: integer;

begin

 k := 0;

 for i:=15 to 100 do if i mod 2 = 0 then k:=k+i;

 write(k);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт