1)Даны два целых числа. Вычислить сумму,разность, произведение и частное их квадратов. 2)дана сторона равностороннего треугольни
1)Даны два целых числа. Вычислить сумму,разность, произведение и частное их квадратов. 2)дана сторона равностороннего треугольника. Найти его высоты и радиус описанной и вписанной окружности.
begin read(s); s := s + chr(10); for i := 1 to length(s) do if s[i] = c then k := k + 1 else begin if k <= 2 then for j := 1 to k do res := res + c else res := res + '^' + inttostr(k) + c;