pankuznetsov
Program triangleexist; var a, b, c: real; exist: boolean; begin read(a, b, c); exist:=true; if a > b and a > c then exist:=false; if b > a and b > c then exist:=false; if c > a and c > b then exist:=false; if exist = true then writeln('Существует'); else writeln('Не существует'); end.
Answers & Comments
var a, b, c: real;
exist: boolean;
begin
read(a, b, c);
exist:=true;
if a > b and a > c then
exist:=false;
if b > a and b > c then
exist:=false;
if c > a and c > b then
exist:=false;
if exist = true then
writeln('Существует');
else
writeln('Не существует');
end.