Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  10012019
Language: PASCAL
Code:
var n, un_n:integer;
begin
readln(n);
un_n:=48;
write(n div un_n,' ');
un_n:=un_n div 3;
while un_n>0 do begin
write(n div un_n,' ');
un_n:=un_n div 4;
end;
end.

          
          
Comments: