Работа в паскале. 1) определить минимум из двух различных чисел. (усл.алгоритма) 2) вычислить расстояние между двумя точками на прямой r=(xa-xb) xa; xb - коор-т. точки a и b 3) найти значение гипотенузы в прямоуг. треугольнике по известным значениям катетов (т. пифагора)
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.