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

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

Приложения:

Ответы

Автор ответа: Аноним
0

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

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

begin

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

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

end.


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