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
WA × 11
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