Ответы на вопрос:
Var a,b,c,t: real; begin readln(a,b,c); if b> a then begin t: =a; a: =b; b: =t; end; if c> a then begin t: =a; a: =c; c: =t; end; if (a*a=b*b+c*c) then writeln('треугольник прямоугольный') else writeln('треугольник не прямоугольный'); end.
Популярно: Информатика
-
Lulu808025.06.2023 14:14
-
viahseslav28.02.2021 12:18
-
Nastiya32030.06.2022 02:14
-
Лилия351007.08.2021 11:49
-
vladagabriell12.07.2020 09:03
-
logangeor27.06.2022 00:07
-
Dashasdh20.01.2020 00:23
-
Raf1222216.04.2023 13:06
-
LERa00712316.05.2023 15:30
-
stepanoganezov24.11.2021 03:51