Var a,b,c:integer; begin writeln('Введите стороны треугольника'); read(a,b,c); if (a + b > c) and (a + c > b) and (b + c > a) then writeln('Существует') else writeln('Не существует'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
