7)Руслан
8)друга ищи,а найдешь-береги
старый друг лучше новых двух
Сверчок!!Сверчок!!<span>Сверчок!!</span>
Var
k, N: Integer;
begin
Write("N = ");
ReadLn(N);
k:=1;
Repeat
Dec(N);
k:=k * 2;
WriteLn(k - 1);
Until (N < 0)
end.
S := exp(ln(-sqrt(156,374) * ln(n)) * 1/3)
Ну есле за 2 сек ДВА МИЛЛИОНА то за 8 сек ВОСЕМЬ МИЛЛИОНА