| Pascal синтаксис |
| 1 | const CONST = const; const CONST = const; const CONST = const; const CONST = const; const CONST = const;. |
| 2 | type type = record record: type; record: type; end; type type = record record: type; record: type; end; type type = record record: type; record: type; end; type type = record record: type; record: type; end; type type = record record: type; record: type; end;. |
| 3 | i, n: longint; i, n: longint; i, n: longint; i, n: longint; i, n: longint; i, n: integer; i, n: integer; i, n: integer; i, n: integer; i, n: integer; answer: int64; answer: int64; answer: int64; answer: int64; answer: int64; real: extended; real: extended; real: extended; var i, n: longint; arr: array [1..1000, 1..1000] of integer; answer: int64; var i, n: longint; arr: array [1..1000, 1..1000] of integer; answer: int64;. |
| 4 | procedure procedure; procedure procedure(x, y: longint); function function: longint; function function(z: real): longint;. |
| 5 | assign(input, 'input.txt'); reset(input); assign(input, 'input.txt'); reset(input); assign(input, 'input.txt'); reset(input); assign(input, 'input.txt'); reset(input); assign(input, 'input.txt'); reset(input);. |
| 6 | assign(output, 'output.txt'); rewrite(output); assign(output, 'output.txt'); rewrite(output); assign(output, 'output.txt'); rewrite(output); assign(output, 'output.txt'); rewrite(output); assign(output, 'output.txt'); rewrite(output);. |
| 7 | for i:= 1 to n do read(arr[i]); for i:= 1 to n do read(arr[i]); for i:= 1 to n do read(arr[i]); for i:= 1 to n do read(arr[i]); for i:= 1 to n do read(arr[i]);. |
| 8 | BEGIN read(arr[i]); write(answer); END. |
Комментарии