составить программу с процедурой, которая находит минимальное значение из 3 чисел
Answers & Comments
APALoff
Var a,b,c : Integer; Function Min(aa,bb : Integer) : Integer; Begin If aa<bb then Min:=aa else Min:=bb; end; Begin Write('Введите три числа: '); Readln(a,b,c); Writeln('Минимальное число: ',Min(Min(a,b),c)); end.
Answers & Comments
Function Min(aa,bb : Integer) : Integer;
Begin
If aa<bb then Min:=aa else Min:=bb;
end;
Begin
Write('Введите три числа: '); Readln(a,b,c);
Writeln('Минимальное число: ',Min(Min(a,b),c));
end.