Составить программу с процедурой, которая находит минимальное значение из 3 чисел

Question

Информатика

Нинуля

24 февраля, 14:39

Составить программу с процедурой, которая находит минимальное значение из 3 чисел

+5

Ответы (1)

Знаете ответ?

Егоня · Answer 1

Var a, b, c : Integer;

Function Min (aa, bb : Integer) : Integer;

Begin

If aa
end;

Begin

Write ('Введите три числа: ') ; Readln (a, b, c) ;

Writeln ('Минимальное число: ', Min (Min (a, b), c)) ;

end.