profile
Опубликовано 5 лет назад по предмету Информатика от Quteria

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

  1. Ответ
    Ответ дан AnonimusPro
    //PascalABC.NET
    //Версия 3.3, сборка 1634
    begin
    write(ReadSeqIntegerWhile(x->x<>0).Where(f->f in [5..15]).Sum);
    end.
    1. Ответ
      Ответ дан Quteria
      спасибо конечно, но можно попроще?
    2. Ответ
      Ответ дан AnonimusPro
      В каком смысле "проще'? В одну строчку разве не просто?
    3. Ответ
      Ответ дан Quteria
      не в одну строчку