Var a,b,c : integer; begin readln (a,b,c); if (not (a=b)) and (not (b=c)) and (not (a=c)) then writeln('разносторонний') else if ((a=b) and (not (b=c)) and (not (a=c))) or ((b=c) and (not (b=a)) and (not (c=a))) or ((a=c) and (not (a=b)) and (not (c=b))) then writeln('равнобедренный') else writeln('равносторонний'); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
