Разбиваем двоичное число справа налево по три разряда и каждую полученую тройку (триаду) заменяем соответствующей восьмеричной цифрой, дополняя слева недостающие разряды нулями.
10111101(2)=010 111 101(2)=275(8)
1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
Решение - в прилагаемом файле.
Program qq;
var i, n, c:real;
begin
readln(i);
c:=i;
while n<>100 do
begin
n:=n+1;
write(c, ' ');
c:=c*i;
end;
writeln();
<span>end.</span>