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

Question

Информатика

Ларуся

19 августа, 07:13

Составить программу с процедурой, которая находит минимальное значение из 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.