12, 23, 34, 45, 56, 67, 78, 89
Ответ: 8.
Вроде здесь уже решал такое :)
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
Ответ:
Желтым я выделила правильные ответы.Буду благодарна,если вы отметите мой ответ,как лучший