Написать программу в паскале с помощью процедуры: наименьшее из трех чисел

Question

Информатика

Бландина

29 сентября, 09:45

Написать программу в паскале с помощью процедуры: наименьшее из трех чисел

+4

Ответы (1)

Знаете ответ на вопрос?

Филя · Answer 1

Var

a, b, c: integer;

procedure min (a, b, c: integer) ;

var

min: integer;

begin

min:=a;

if b < min

then min:=b;

if c < min

then min:=c;

writeln (min) ;

end;

begin

readln (a, b, c) ;

min (a, b, c) ;

end.