Ответы
Ответ дал:
0
Function Min(a,b : Integer) : Integer;
Begin
If a<b then Min:=a else Min:=b;
end;
Var x,y,z : Integer;
Begin
Readln(x,y,z);
Writeln(Min(Min(x,y),z));
end.
Begin
If a<b then Min:=a else Min:=b;
end;
Var x,y,z : Integer;
Begin
Readln(x,y,z);
Writeln(Min(Min(x,y),z));
end.
Ответ дал:
0
спасибо огромное
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад