Program meshulashim; Var x,y,z:real; Begin repeat readln(x,y,z); if ((x+y)>z) and ((x+z)>y) and ((y+z)>x) then if (x=y) and (y=z) then writeln('שווה צלעות'); else if (x=y) or (y=z) or (x=z) then writeln('שווה שוקיים'); else writeln('שונה צלעות'); until ((x+y)<z) or ((x+z)<y) or ((y+z)<x); writeln('קלט לא חוקי'); end.
|