Исходные данные - три числа a, b и с. Результату min надо присвоить наименьшего из них.

Question

Информатика

Деня

20 августа, 00:19

Исходные данные - три числа a, b и с. Результату min надо присвоить наименьшего из них.

+5

Ответы (1)

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

Авдотька · Answer 1

Var

a, b, c, min:integer;

begin

readln (a, b, c) ;

if (a>b) and (a>c) then min:=a;

if (b>a) and (b>c) then min:=b;

if (c>a) and (c>b) then min:=c;

write (min) ;

end.