Программа pascalABC

Найти периметр треугольника, если треугольника не существует то вывести на экран: треугольника не существует.

Question

Информатика

Галисима

12 февраля, 00:49

Программа pascalABC

Найти периметр треугольника, если треугольника не существует то вывести на экран: треугольника не существует.

+1

Ответы (2)

Знаете ответ на вопрос?

Гернандо · Answer 1

var z, x, c: real;

begin

write ('стороны треугольника: ') ;

readln (z, x, c) ;

if (z + x < = c) or (x + c < = z) or (z + c < = x) then writeln ('нет такого треугольника')

else writeln ('Периметр треугольника = ', z+x+c)

end.

Кайла · Answer 2

var a, b, c: real;

begin

write ('Введите стороны треугольника: ') ;

readln (a, b, c) ;

if (a + b < = c) or (b + c < = a) or (a + c < = b) then writeln ('Треугольника с такими сторонами не существует')

else writeln ('Периметр треугольника равен: ', a+b+c)

end.

Программа pascalABCНайти периметр треугольника, если треугольника не существует то вывести на экран: треугольника не существует.

Программа pascalABC

Найти периметр треугольника, если треугольника не существует то вывести на экран: треугольника не существует.