ОЧ
Олег Четвертной
Даны действительные числа x, y. Получить: min(x, y); Паскаль
Найти min(x, y)
Найти min(x, y)
Program minimum;
Uses crt;
Var x, y : real;
Begin
ClrScr;
writeln ('Введите значения переменных х и у через пробел ');
readln (x, y);
if x > y
then
writeln ('Минимальное = ', y);
else
writeln ('Минимальное = ', x);
if x = y
then
writeln ('Числа равны');
readln;
End.
P.S.
Не забывай знаки . и ;