Помогите, пожалуйста(Паскаль): Даны действительные положительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z. (вроде бы всё правильно, но что-то не получается)
вроде так...
PRogram Z1;
uses crt;
var x,a,b,c:integer;
begin
ClrScr;
readln (a);
readln (b);
readln (c);
if (A+B) > C then
if (A+C) > B then
if (B+C) > A then begin
write ('Yes');
x:=x+1;
end;
if x=0 then writeln ('No');
readln
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
вроде так...
PRogram Z1;
uses crt;
var x,a,b,c:integer;
begin
ClrScr;
readln (a);
readln (b);
readln (c);
if (A+B) > C then
if (A+C) > B then
if (B+C) > A then begin
write ('Yes');
x:=x+1;
end;
if x=0 then writeln ('No');
readln
end.