Var a,b,c,angA,angB,angC,cs: real; s: string; begin write('длины сторон через пробел: '); readln(a,b,c); if (a+b>c) and(a+c>b) and (c+b>a) then begin cs:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b); angC:=360*ArcCos(cs)/(2*pi); writeln('угол С = ',angC:4:2); cs:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c); angB:=360*ArcCos(cs)/(2*pi); writeln('угол B = ',angB:4:2); angA:=180-angB-angC; writeln('угол A = ',angA:4:2); if (angA<90) and (angB<90) and (angC<90) then s:='треугольник остроугольный'; if (angA>90) or (angB>90) or (angC>90) then s:='треугольник тупоугольный'; if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(b)+sqr(c)=sqr(a)) then s:='треугольник прямоугольный'; writeln(s); end else writeln('треугольник составить нельзя'); end.
3
6
9
12
15
Объяснение:
это цыкл в while 5 раз прибавит 3
если While = true цыкл будет работат если false то пропустит
summa = 15