Задача №4
Найти минимальное среди 4-х чисел, используя функцию нахождения минимального среди двух чисел.
Program func4-
Uses crt-
Var a,b,c,d,m1,m2:integer-
Function Min (x,y: integer): integer-
begin
if x<-y then
min:=x
else
min:=y-
end-
begin
ClrScr-
Writeln(‘введите 4 числа’)-
readln(a,b,c,d)-
m1:=min(a,b)-
m2:=min(c,d)-
m1:= min(m1,m2)-
Writeln(‘минимум=’,min)-
Readln-
End.
|