Паскаль АВС :дано 2 числа а,б вивести найменше з них​

Question

Паскаль АВС :дано 2 числа а,б вивести найменше з них​

Answer 1

program meister;

var a,b:integer;

begin

writeln('Введите a: ');

readln(a);

writeln('Введите b: ');

readln(b);

if a< b then writeln("больше число a")

else writeln("больше число b");

end.

Comments

но хочу заметить не делал проверку на равенство двух чисел. По условию она не нужна я так понимаю, потому что такой вариант не рассматривают

Answer 2

Ответ:

• begin
• var (a,b) := ReadInteger2;
• if aelse if a>b then print('Найменше:',b)
• else print('Они равны')
• end.

Пример работы:

---

---