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

Определить и вывести меньшее из трех вводимых чисел
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы