написать программу в паскале, которая проверяет проверяет по заданным трем сторонам треугольник на равносторонность
Answers & Comments
marvvv
Program E4; var a, b, с: real; begin writeln ('введите длины трех сторон треугольника '); readln (a, b, с); write ('треугольник со сторонами ', а, Ь, с); if (а + b > с) and (b + с > a) and (а + с > Ь) then begin writeln ('существует'); if (a = b) and (a = c) then writeln ('равносторонний') else writeln ('неравносторонний'); else writeln ('не существует'); end; readln end.
Answers & Comments
var a, b, с: real;
begin
writeln ('введите длины трех сторон треугольника ');
readln (a, b, с);
write ('треугольник со сторонами ', а, Ь, с);
if (а + b > с) and (b + с > a) and (а + с > Ь) then
begin
writeln ('существует');
if (a = b) and (a = c) then
writeln ('равносторонний')
else
writeln ('неравносторонний');
else
writeln ('не существует');
end;
readln
end.