fork download
  1. program project1;
  2.  
  3. uses
  4. sysutils;
  5. const
  6. CArrCnt = 19;
  7. var
  8. x: integer;
  9. y: array[0..CArrCnt] of integer;
  10. s: string; // changes here
  11. dataline: string;
  12. i: Integer;
  13.  
  14. begin
  15. dataline := 'aaa 123 0 1 2 3 4 5 6 7 8 9 10 11';
  16. s := ' '; // changes here
  17. sscanf(dataline, '%s %d %d %d %d %d %d %d %d %d %d %d %d %d',
  18. [@s, @x, @y[0], @y[1], @y[2], @y[3], @y[4], @y[5],
  19. @y[6], @y[7], @y[8], @y[9], @y[10], @y[11]]);
  20. WriteLn(s);
  21. Writeln(x);
  22. for i := 0 to CArrCnt do
  23. WriteLn(y[i]);
  24. ReadLn;
  25. end.
Runtime error #stdin #stdout 0s 528KB
stdin
Standard input is empty
stdout
An unhandled exception occurred at $08049DD1 :
EAccessViolation : Access violation
  $08049DD1
  $080481A2