Как взломать камеру на порт 37777

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

35 - 10 = 25 чисел нужно для записи результата

2^ i = 25

i = 5

для кодирования 25 чисел нужно 5 бит

27 * 5 = 135 бит

ответ. 135 бит.

тогда наверное будет:

2^i = 35

i = 6 бит

27 * 6 = 162 бит

ответ. d) 162 бит

но это не верно. т.к. мы кодируем 25 числе, а не 35. возможно в ответах опечатка

всмысле какая ? (ну если я правильно понял вопрос,то )тут находится только с по формуле:   (a+b)*(b-a) и выводит результат (с) на экран.

если числа небольшие и x в n степени умещается в longint, то можно в цикле от 1 до n умножать на x

var i,x,n: integer;

l: longint;

begin

readln(x,n);  

l: =1;  

for i: =1 to n do

l: =l*x;

write(l);

end.