Var n, i: integer;
a, y: real;
begin
readln(a, n);
for i := 0 to n do
y := y + exp(ln(a) * I);
writeln(y);
end.
<span>
Работает =)</span>
Log(2) 32 = 5 Бит вот так это делается
-2; 2 ..............................
Лист защищен без пароля, чтобы случайно не повредить формулы.
Формулы можно посмотреть в строке формул.
Uses crt;
var a=array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(50);
if (a[i]mod5=0) there
a[i]:=a[i]*2;
else
a[i]:=a[i]/2;
for i:=1 to 10 do
writeln(a[i]);
end.