Написать программу на pascal, которая определяет, существует ли треугольник со сторонами A,B,C,зная, что сумма двух сторон треугольника всегда больше третьей
Ответы на вопрос
Ответил raf1O5
0
program raf105;
var
a,b,c: integer;
x: boolean;
begin
x:= True;
write('Введите 3 числа через пробел: ');
readln(a,b,c);
if a+b < c
then x:= False;
if a+c < b
then x:= False;
if b+c < a
then x:= False;
if x
then writeln('Треугольник существует')
else writeln('Треугольника не существует');
end.
PascalABC 3.4.2
Новые вопросы