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

Question

Информатика

Зиша

10 февраля, 23:10

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

+4

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