Предмет: Информатика, автор: Quteria

Написать программу в Паскале. (задача)
Пользователь вводит целые числа, 0 это финиш, просуммировать все числа в диапазоне от 5 до 15 включительно

Ответы

Автор ответа: AnonimusPro
1
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(f->f in [5..15]).Sum);
end.

Quteria: спасибо конечно, но можно попроще?
AnonimusPro: В каком смысле "проще'? В одну строчку разве не просто?
Quteria: не в одну строчку
Похожие вопросы