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

Question

Информатика

Северина

20 ноября, 11:59

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

+3

Ответы (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.