Прошу составить в abc ! долго болел и пропустил много важных теорий, а теперь нужно подготовиться к зачету : с прошу, составить алгоритм, суть такова: 1.нужно использовать только целые числа 2.определить тип треугольника (равносторонний, равнобедренный, прямой и т.д.) 3.существует ли этот треугольник (ну то, что каждая сторона меньше суммы двух других) 4.вид треугольника 5.найти по формулам: периметр (p), площадь (s), медиану и бессикриссу 6.и по возможности синусы и косинусы заранее за !

Опущу все прелюдии. writeln('введите длины сторон треугольника'); readln(x, y, z); if x = y and y = z and z = x   then   writeln('данный треугольник -  равносторонний')   else   if (x = y and y = z) or (x = y and x = z) or (x = z and y = z)     then     writeln('данный треугольник -  равнобедренный')     else     if (sqrt(x) = sqrt(y) + sqrt(z)) or (sqrt(y) = sqrt(x) + sqrt(z)) or (sqrt(z) = sqrt(x) + sqrt(y))       then       writeln('данный треугольник -  прямоугольный')       else       if (x < (y + z)) and (y < (x + z)) and (z < (x + y))         then         writeln('данный треугольник является обыкновенным')         else         writeln('данный треугольник не существует'); p : = div((x + y + z) /  2); {полупериметр} writeln('периметр треугольника р =', x + y + z); writeln('площадь треугольника s =', div(sqrt(p*(p-x)*(p-y)*(p-; writeln('медиана к стороне x -', div(sqrt(2*sqr(y) + 2*sqr(z) - sqr(x))/2)); writeln('биссектриса стороны х -', div(sqrt(y*z*(x+y+z)*(y+z-x))/(y+; с синусами/косинусами особая , напиши мне в лс, чтоб я не забыл потом .

Var       n, s, i: integer;       s1: real; begin       readln(n); {общий ввод для всех }             if n < 0 then               writeln(' 1. n=', 0)       else writeln(' 1. n=', n + 4);             s : = 0;       for i : = 1 to n do               s : = s + i;       writeln(' 7. 1+2+3+…+n=', s);             write(' 9. последовательность от n до 1 = ');       for i : = n downto 1 do               write(i, ' ');       writeln();             s1 : = 0;       for i : = 1 to n do               s1 : = s1 + i / 10;       writeln(' 12. 0,1+0,2+0,3+..+n/10=', s1);             write(' 13. последовательность квадратов от 1 до n = ');       for i : = 1 to n do               write(i * i, ' ');       writeln();             write(' 14. последовательность первых n нечетных чисел = ');       for i : = 1 to n do               write(2 * i - 1, ' ');       writeln();             if n > 0 then               writeln(' 20. n степень 3 = ', frac(ln(n) / ln(3)) = 0);             s : = 0;       for i : = 1 to n do               if n mod i = 0 then                       s : = s + i;       writeln(' 24. сумма всех натуральных делителей числа n (сключая 1 и n) = ', s); end.