Паскаль: Вычислить и вывести значения периметров 25 треугольников при различных значениях...

Question

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

Comments

Ввести с клавиатуры 75 переменных?...

Answer 1

Var
   A,B,C:real;
   i:integer;
Begin
For i:= 1 to 25 do
    Begin
    Write('Введите длины сторон треугольника: ');
    ReadLn(A,B,C);
    if (A < B+C)and(B < C+A)and(C < A+B) then
       WriteLn('P = ',A+B+C)
    else WriteLn('Треугольник не существует');
    End
End.

Answer 2

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b,c:real;
  loop 25 do begin
    Write('Введите длины сторон треугольника: '); Read(a,b,c);
    Writeln('Периметр треугольника равен ',a+b+c)
    end
end.