По формулам считаем:
N=2^i
I=k*i
134=2^8
I=308334*8=2466672 бит=308334 байт=301 кбайт
(х-у)(х+у) формула подставляешь
uses crt;
var a,b,c:real;
begin
write('Введите A,B,C: ');
read(a,b,c);
writeln(power(exp(1), (sin(a+b)/cos(a+b))/sin(a)-ln(c) )*sin((sqrt(sqrt(c)+a))/cos(sqrt(a)))/cos((sqrt(sqrt(c)+a))/cos(sqrt(a)))*ln( (sqrt( (a+b)/sqrt(a)+sqrt(b) )-c)/(c+( (c+sqrt(5*a))/c+(sqrt(a+b))/(b*sqrt(c)) )) ):0:5);
<span>end.</span>
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to 6 do
begin
if n mod 2 = 1 then begin k:=i; break; end;
n:=n div 10;
end;
if k=0
then writeln('В числе нет нечётных цифр')
else writeln('k = ',k);
end.
Пример:
n = 123456
k = 2