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.