Question

Решить в Паскале
m=max(x,y,z)/min (x,y)+5

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 x,y,z:integer;
 m:real;
 
function maxi(x,y:integer):integer;
begin
 if x>y then maxi:=x else maxi:=y;
end;

function mini(x,y:integer):integer;
 begin
  if x<y then mini:=x else mini:=y;
 end;
 
begin
readln(x);
readln(y);
readln(z);
m:=maxi(maxi(x,y),z)/mini(x,y)+5;
writeln(m);
end.

Пример ввода:
1
2
3
Пример вывода:
8