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.

Answer 2

Ответ:

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

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