1000/5=200, остаток=0
200/5=40, остаток=0
40/5=8 остаток=0
8/5=1 остаток=3
1/5<1-больше не делим
Ответ записываем в обратном порядке, начиная с последнего
1000=13000(5)
Var i,n:integer;
begin
read(n);
for i := 1 to n do
writeln(i*i*i);
end.
Нееет, ты что!!! Вирусы только в электронных устройствах! но есть такая болезнь не помню как называется..
№1-512000/128 вот и ответ
№2 100/20 =50*32 вот ответ