<span>56 KB56000 Байт<span>57344 Байт</span></span>
Ваня – П
<span>Петя – К </span>
<span>Саша – В </span>
<span>Коля – С</span>
Program prx;
uses crt;
Var a,d,c,k,d,g,o,f,v.perimetr1,perimetr2,perimetr3,max:byte;
Begin
Writeln ("Введи длины сторон трех треугольников");
Readln (a,d,c,k,d,g,o,f,v);
Perimetr1:=a+d+c;
Perimetr2:=k+d+g;
Perimetr3:=o+f+v;
If perimetr1>perimetr2
Then max:=perimetr1
Else if perimetr2>perimetr3
Then max:=perimetr2
Else max:=perimetr3
End;
End;
Writeln (max);
Readln;
End.
Ответ:
Ответ на картинке
Объяснение:
Соответствие выделенное чёрным цветом под вопросом, т.к. условие не видно целиком.