Треугольник задан длинами своих сторон – a, b, c. определить является ли он тупоугольным, прямоугольным или остроугольным сделать разветвляющуюся алгоритмическую структуру.

program zilly; uses crt; const n=10; var  a,b,c: real;   tup,pryam: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   tup: =0;   pryam: =0;   writeln('введите стороны треугольника');   write('а = '); readln(a);   write('b = '); readln(b);   write('c = '); readln(c);   a: =a*a;   b: =b*b;   c: =c*c;   if a=b+c then pryam: =1;   if b=a+c then pryam: =1;   if c=a+b then pryam: =1;   if a> b+c then tup: =1;   if b> a+c then tup: =1;   if c> a+b then tup: =1;   if tup=1 then writeln('треугольник тупоугольный')       else          if pryam=1 then writeln('треугольник прямоугольный')                else writeln('треугольник остроугольный'); end.

используем теорему пифагора : ) пишу на паскале так как вы не указали нужный вам язык.

в решение будет считаться, что cторона с наибольшая

var a, b, c : integer;

begin

read(a, b, c);

if (sqr(c) = sqr(a) + sqr(b)) then write('primoygolnyi');

if (sqr(c) > sqr(a) + sqr(b)) then write('typoygolnyi'); if (sqr(c) < sqr(a) + sqr(b)) then write('ostroygolnyi');

end.

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.