1. Присвоить целой переменной h третью от конца цифру в записи положительного целого числа k (например, если k=130985, то h=9).
2. Целой переменной s присвоить сумму цифр трехзначного целого числа k.
3. Переписать программу нахождения расстояние между двумя точками в двухмерном пространстве для трехмерного случая.
var
x1,y1 : real; { координаты первой точки }
x2,y2 : real; { координаты второй точки }
r :real; { расстояние между точками }
begin
write('Введите координаты первой точки:');
readln(x1, y1);
write('Введите координаты второй точки:');
readln(x2, y2);
r:=sgrt(sgr(x1-x2)+sgr(y1-y2));
writeln('растояние равно:', r);
end;
4. Напишите программу: вычислить катет и радиус вписанной окружности прямоугольного треугольника, зная его гипотенузу и второй катет.