Question

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

Answer 1

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

Answer 2

спасибо конечно, но можно попроще?

Answer 3

В каком смысле "проще'? В одну строчку разве не просто?

Answer 4

не в одну строчку