Предмет: Информатика,
автор: 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. - и это все.
Похожие вопросы
Предмет: Математика,
автор: raida19
Предмет: Физика,
автор: Vaszi
Предмет: Қазақ тiлi,
автор: daniarzaparov22
Предмет: Химия,
автор: ововлв
Предмет: Математика,
автор: sabina149