Submission #3334026


Source Code Expand

var
 n,i,j:longint;
 a:array[0..101,0..101] of char;
begin
 readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    read(a[i,j]);
  readln;
  end;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[j,n-i+1],' ');
   writeln;
  end;
end.

Submission Info

Submission Time
Task B - 回転
User luogu_bot5
Language Pascal (FPC 2.6.2)
Score 0
Code Size 248 Byte
Status WA
Exec Time 0 ms
Memory 128 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 128 KB
005.txt WA 0 ms 128 KB
006.txt WA 0 ms 128 KB
007.txt WA 0 ms 128 KB
008.txt WA 0 ms 128 KB
009.txt WA 0 ms 128 KB
010.txt WA 0 ms 128 KB