Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Вычислить и вывести значения периметров 25 треугольников при различных значениях их сторон (А>0, B>0, C>0), вводимых с клавиатуры

Ответ оставил Гость

Вроде здесь уже решал такое :)

//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.