Question

Работа в Паскале.
1) Определить минимум из двух различных чисел. (усл.алгоритма)
2) Вычислить расстояние между двумя точками на прямой
r=(Xa-Xb)
Xa;Xb - коор-т. точки A и B
3) Найти значение гипотенузы в прямоуг. треугольнике по известным значениям катетов (т. Пифагора)

Answer 1

1)
var 
 a,b:integer;
begin 
 write('Введите 2 числа: '); 
 read(a,b); 
 if a>b   
    then     
       write('Первое число больше второго')   
    else   
       write('Второе число больше первого');
end.
2)
var 
   a,b:real;
begin 
write('Введите координаты X точек: '); 
read(a,b); 
write('Расстояние между точками = ', abs(a-b));
end.
3)
var   
a,b:real;
begin 
write('Введите значения катетов: '); 
read(a,b);
write('Гипотенуза равна ', sqrt(sqr(a)+sqr(b)));
end.