Написать програму в паскале.
1. Даны стороны треугольника а,в,с. Определить является ли это треугольником.
var a, b, c: integer;
begin
writeln('Введите стороны треугольника');
readln(a, b, c);
if (a+b<=c)or(b+c<=a)or(a+c<=b) then writeln('Не является')
else writeln('Является');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a, b, c: integer;
begin
writeln('Введите стороны треугольника');
readln(a, b, c);
if (a+b<=c)or(b+c<=a)or(a+c<=b) then writeln('Не является')
else writeln('Является');
end.