Var a, b, c: integer;begin
readln(a, b, c);
if (a + b <= c) or (b + c <= a) or (a + c <= b) then
writeln('Does not exist')
else if(a = b)and(b = c) then
writeln('Equilateral')
else if(a = b)or(b = c)or(a = c) then
writeln('Isosceles')
else
writeln('Versatile')
end.

переделайте на питон

polinaa6    3   21.05.2020 17:32    0