Составьте программу, которая по трем введенным вами числам определит является ли треугольник прямоугольным?

1. n=2^i; 32=2^i => i=5 бит;   5 мб = 41943040 бит. 41943040 бит/5 бит = 8388608 символов. 2. 1) если в кодировке ascii.         8*25*150=30000 символов.         один символ в кодировке ascii занимает 1 байт или 8 бит.         30000*1=30000 байт.         2) если в кодировке unicode.         8*25*150=30000 символов.         один символ в  unicode занимает 2 байта или 16 бит.         30000*2=60000 байт.  

Program programma; uses crt; var x,y: real; begin clrscr;           write('введите число x = ');           readln(x);           write('введите число y = ');           readln(y);           writeln;           if x < > y then           begin                     if x< y then writeln ( ((x+y)/2): 0: 3,'  ', y)                     else  writeln ( x,'  '+y)/2): 0: 3);           end           else           writeln('y не должен равняться x'); readln; end.