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

140

Посмотреть ответы 2

Ответы на вопрос:

клубничка114

Информатика

4,4(26 оценок)

Вроде здесь уже решал такое : ) //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.