Question

Написать программу для нахождения меньшего из чисел. Записать результат работы программы после введения значений а:=7, b:=5.
Язык: паскаль

Answer 1

Ответ:

var a, b: integer;

begin

 Write('Ведите числа a и b: '); ReadLn(a, b);

 if a > b then WriteLn(a, ' больше ', b)

   else if b > a then WriteLn(b, ' больше ', a)

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

end.

Объяснение: