Составить программу в pascalabc.netнеобходимо нарисовать данный рисунок

program zadacha;

var x,y,z,ans: int64;

begin

readln(x,y,z);

if (x> 0) and (y> 0) and (z> 0) then inc(ans);

if (ans=0) then writeln('такой треугольник построить нельзя') else begin

      write('такой треугольник можно построить');

      if(x=y) xor (x=z) xor (y=z) then write(', он будет равнобедренным') else

      if(x=y) and (x=z) and (z=y) then write(', он будет равносторонним')else

      if(x=y) xor (x=z) xor (y=z) then write(', он будет равнобедренным');

      if (sqr(x)+sqr(y)=sqr(z)) or (sqr(y)+sqr(z)=sqr(x)) or (sqr(z)+sqr(x)=sqr(y)) then

write(', он будет прямоугольным.')   else

      if(sqrt(sqr(x)+sqr(y))> z) xor  (sqrt(sqr(z)+sqr(y))> x) xor  (sqrt(sqr(x)+sqr(z))> y) then write(', он будет остроугольным.')

else write(', он будет тупоугольгым.');

end;

end.

 

ps: не забудь пометить как лучшее решение )

 

 

1.  файл хранится в каталоге "россия" с: /красная книга/ россия/ растения_степей.doc2.  если из каталога "россия"  подняться на уровень вверх, то попадем в каталог "красная книга" с: /красная книга/3.  после создатия каталога "евразия" в каталоге  с: /красная книга/, путь станет таким:   с: /красная книга/ евразия 4. если преместить каталог "россия" в каталог "евразия", путь станет таким:   с: /красная книга/евразия/ россия 5. а так как в каталоге "россия" хранится файл "растения_степей.doc, то полное имя файла стало таким:   с: /красная книга/евразия/россия/растения_степей.doc.