Submission #3173497
Source Code Expand
var ch,print:array[0..1000,0..1000] of char; n,i,j:longint; begin readln(n); for i := 1 to n do begin for j := 1 to n do read(ch[i][j]); readln; end; for i := 1 to n do for j := 1 to n do print[i][n + 1 - j] := ch[j][i]; for i := 1 to n do begin for j := 1 to n do write(ch[i][j]); writeln; end; end.
Submission Info
Submission Time | |
---|---|
Task | B - 回転 |
User | luogu_bot5 |
Language | Pascal (FPC 2.6.2) |
Score | 0 |
Code Size | 412 Byte |
Status | WA |
Exec Time | 0 ms |
Memory | 256 KB |
Compile Error
/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 0 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | 000.txt, 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
000.txt | WA | 0 ms | 128 KB |
001.txt | WA | 0 ms | 128 KB |
002.txt | WA | 0 ms | 128 KB |
003.txt | WA | 0 ms | 128 KB |
004.txt | WA | 0 ms | 256 KB |
005.txt | WA | 0 ms | 128 KB |
006.txt | WA | 0 ms | 256 KB |
007.txt | WA | 0 ms | 128 KB |
008.txt | WA | 0 ms | 256 KB |
009.txt | WA | 0 ms | 128 KB |
010.txt | WA | 0 ms | 256 KB |