ОЧ
Олег Четвертной

Даны действительные числа 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.
Не забывай знаки . и ;

Похожие вопросы
Даны действительные числа x,y,z. Получить max(x2,y2,z2). помогите создать программу на паскале
помогите по паскалю. Дано x, вычислить y, если y={x^2/4 при -2<=x<=2
Помогите решение задачи в Pascal пожалуйста. Даны вещественные числа x, y, z. Найти min(max(x+1,y-1), min(y,z)).
C++ не получается написать программу a=min((x+y+z)/3,x*y*z)/1+min^2(x+y+z)/3,x*y*z)
помогите решить, молюююю. y'+x*y=x*x y''+y'+y=x*x+1
Програмування розгалужених алгоритмів на С++ пример v=max(min(x-y, y-x).0) начальные данные X и Y напишити прогу пожалуй
1) Даны действительные числа x, y, z. Получить: max( x, y, z ); min( x, y, z )
Даны натуральное число n, действительная матрица A размером n x n.
Паскаль Как обозначить число>=x>число в паскале?
Как записать в Паскале как записать данное число в Паскале e^y*b