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

Упростите пожалуйста эту прогу по информатике, работаем в Pascal.
Надо найти минимальное из 3 чисел)

  1. Ответ
    Ответ дан Аккаунт удален

    // PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

    // Внимание! Если программа не работает, обновите версию!

    begin

     var (a, b, c) := ReadReal3;

     Min(Min(a, b), c).Println

    end.

    1. Ответ
      Ответ дан Аккаунт удален
      Короче вряд ли напишут, если без последовательностей. А с ними можно: begin ReadSeqReal(3).Min.Println end. - и это все.
    2. Ответ
      Ответ дан varya0505
      Спасибо тебе, чел
Самые новые вопросы