Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program p02;
uses crt;
var A,B,C: real;
begin
clrscr;
write('Введите сторону A=');
readln(A);
write('Введите сторону B=');
readln(B);
write('Введите сторону C=');
readln(C);
if (A+B>C) and (A+C>B) and (C+B>A)
then
writeln('Треугольник существует')
else
writeln('Треугольник не существует');
end.
uses crt;
var A,B,C: real;
begin
clrscr;
write('Введите сторону A=');
readln(A);
write('Введите сторону B=');
readln(B);
write('Введите сторону C=');
readln(C);
if (A+B>C) and (A+C>B) and (C+B>A)
then
writeln('Треугольник существует')
else
writeln('Треугольник не существует');
end.