fork download
copy 
  1. program ideone;
  2. type
  3.   uk = ^tuk;
  4.  
  5.   tuk = record
  6.   x:integer;
  7.   dalsi: uk;
  8. end;
  9.  
  10. var neparne,b: uk;
  11.     n: integer;
  12.  
  13. Procedure zapamatajsi(cislo: integer;var kde:uk);
  14. begin
  15.   kde^.x:= cislo;
  16.   new(kde^.dalsi);
  17.   kde:=kde^.dalsi;
  18.   kde^.dalsi:=nil;
  19. end;
  20.  
  21. Procedure tlac(neparne:uk);
  22. var a: uk;
  23. begin
  24.   a:=neparne;
  25.  
  26.   while a^.dalsi <> nil do
  27.     begin
  28.       write(a^.x, ' ');
  29.       a:=a^.dalsi;
  30.     end;
  31. end;
  32.  
  33. begin
  34.   new(neparne);
  35.   b:=neparne;
  36.   neparne^.dalsi:=nil;
  37.  
  38.   read(n);
  39.   while (n <> -1) do
  40.     begin
  41.       if n mod 2 = 0 then write (n, ' ');
  42.       if n = -1 then break;
  43.       if n mod 2 <> 0 then zapamatajsi(n,b);
  44.       read(n);
  45.  
  46.     end;
  47.   tlac(neparne);
  48. end.
Success #stdin #stdout 0s 320KB
comments (?)
stdin
copy 
1 3  5 7 9 2 4 6 8 10 -1
stdout
copy 
2 4 6 8 10 1 3 5 7 9
https://ideone.com/qOo4RO
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!