Составить программу вычисления минимального из трех чисел x,y,z. Использовать процедуру

Question

Составить программу вычисления минимального из трех чисел x,y,z. Использовать процедуру

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a, b, c, n :integer; procedure max(a,b:integer; var c :integer); begin if a>b then c:=a else c:=b; end; begin read (a,b,c); max(a,b,a); max(a,c,a); write (a); end.