Определить и вывести меньшее из трех вводимых чисел

Question

Информатика

Фабиана

22 июля, 13:55

Определить и вывести меньшее из трех вводимых чисел

+2

Ответы (1)

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

Нина · Answer 1

Var

a, b, c : integer;

begin

readln (a, b, c) ;

if (a < b) and (a < c) then writeln (a) ;

else if (b < a) and (b < c) then writeln (b) ;

else if (c < a) and (c < b) then writeln (c) ;

else writeln ('Числа равны') ;

end.