Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
SINHNHIPHAN
//fpc 3.0.0 program SINHNHIPHAN; const fi= 'SINHNHIPHAN.INP'; fo= 'SINHNHIPHAN.OUT'; max= 300; var n: byte; //==========================================================// procedure SINHNHIPHAN; {xay dung chuong trinh sinh cac xau nhi phan co do dai n} Var a: array[1..max] of byte; i,j: byte; Begin For i:=1 to n do a[i]:=0; {xay dung cau hinh co so} Repeat {tu cau hinh co so sinh cau hinh tiep theo den khi dat cau hinh cuoi cung} For i:=1 to n do write(a[i]); while (i>0) and (a[i] =1) do Dec(i); if i>0 then begin a[i] :=1; for j:=(i+1) to n do a[j]:=0; {gan a[i] =1, tat ca so dung sau ve gia tri 0} end; Until i=0; End; //==========================================================// BEGIN assign(input,fi); reset(input); assign(output,fo); rewrite(output); read(n); SINHNHIPHAN; close(input); close(output); END.
run
|
edit
|
history
|
help
0
Tri 1.0
Урок 3 задача 1 повышенная сложность. Задача 1484. Усложнённая.
JohnnyHCao
Huong11a2@
shift array to left_new
test25
formato_real
Номер подъезда и этажа по номеру квартиры, количеству этажей и квартир на этаже
2
2