решить №4, это моему уму непостижимо

Question

Информатика: решить №4, это моему уму непостижимо

danilyakimov1 · Accepted Answer

Var     a, b, c, p: real;     a1, b1, c1: real;     a2, b2, c2: real; function SideLength(a1, a2, b1, b2: real): real; begin     SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2)); end; begin     writeln( 1.Найти сумму трех чисел );     readln(a, b, c);     writeln(a + b + c);          writeln( 2.Катеты прямоугольного треугольника известны.Найти гипотенузу. );     readln(a, b);     writeln(sqrt(a * a + b * b));          writeln( 3.Найти среднеарифметическое двух чисел. );     readln(a, b);     writeln((a...

MOGZ ответил