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

Question

Информатика

Ронюша

18 апреля, 14:57

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

+4

Ответы (1)

Знаете ответ?

Эгина · Answer 1

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.