Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Ipis unazad ulancana lista
program NizUnazad; type pok=^elem; elem=record br:integer; preth,sled:pok end; var lista:pok; procedure ucitajlistu(var lista); var prethodnik,novi:pok; indikator:boolean; begin prethodnik:=nil; repeat indikator:=true; while not eoln(input) do begin indikator:=false; new(novi); read(novi^.br); novi^.sled:=nil; if (prethodnik=nil) then begin lista:=novi; novi^.preth:=nil end else begin prethodnik^.sled:=novi; novi^.preth:=prethodnik end; prethodnik:=novi end; until indikator end; procedure ispisiunazad(lista:pok); begin while(lista^.sled<>nil) do lista:=lista^.sled; while(lista^.preth<>nil) do begin write(lista^.br,' '); lista:=lista^.preth end end; procedure brisilistu(var lista:pok); var pom:pok; begin while (lista<>nil) do begin pom:=lista; lista:=pom^.sled; dispose(pom) end end; begin lista:=nil; ucitajlistu(lista); ispisiunazad(lista); brisilistu(lista) end.
run
|
edit
|
history
|
help
0
zad27-notoptimal
3
Cek dua pangkat
test22
homework
qqqq3
НОД через делители чисел
Primo1
Project 16 Pascal
нун