Скачиваний:
20
Добавлен:
06.02.2016
Размер:
329 б
Скачать
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.
Соседние файлы в папке 2 лаб. Структурные операторы