leylakhalimova
25.01.2020 02:53

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:

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.

0,0(0 оценок)
Ответ:
mariya8309662072
09.10.2020 01:08

begin

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

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота