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

Question

Информатика

Фотина

5 февраля, 23:28

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

+2

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