PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('Вводите 3 числа:');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)then
writeln('Это не треугольник!')
else if (a=b)and(b=c)then writeln('Это равносторонний треугольник!')
else if ((a=b)and(b<>c))or((a=c)and(b<>c))or((b=c)and(a<>c))
then writeln('Это равнобедренный треугольник!')
else *write('Это произвольный треугольник');
readln
end.
0