Submission #7074123


Source Code Expand

var
  n,i,j:longint;
begin
  readln(n);
  n:=2025-n;
  for i:=0 to 10 do
    for j:=0 to 10 do
    if i*j=n then writeln(i,' x ',j);
end.

Submission Info

Submission Time
Task C - 九九足し算
User luogu_bot4
Language Pascal (FPC 2.6.2)
Score 0
Code Size 145 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
AC × 19
WA × 1
Set Name Test Cases
All sample_01.txt, sample_02.txt, test_1953.txt, test_1971.txt, test_1977.txt, test_1983.txt, test_1989.txt, test_1990.txt, test_1993.txt, test_1995.txt, test_1997.txt, test_1998.txt, test_2001.txt, test_2009.txt, test_2013.txt, test_2017.txt, test_2019.txt, test_2020.txt, test_2022.txt, test_2024.txt
Case Name Status Exec Time Memory
sample_01.txt AC 0 ms 128 KB
sample_02.txt AC 0 ms 128 KB
test_1953.txt AC 0 ms 128 KB
test_1971.txt AC 0 ms 128 KB
test_1977.txt AC 0 ms 128 KB
test_1983.txt AC 0 ms 128 KB
test_1989.txt AC 0 ms 128 KB
test_1990.txt AC 0 ms 128 KB
test_1993.txt AC 0 ms 128 KB
test_1995.txt WA 0 ms 128 KB
test_1997.txt AC 0 ms 128 KB
test_1998.txt AC 0 ms 128 KB
test_2001.txt AC 0 ms 128 KB
test_2009.txt AC 0 ms 128 KB
test_2013.txt AC 0 ms 128 KB
test_2017.txt AC 0 ms 128 KB
test_2019.txt AC 0 ms 128 KB
test_2020.txt AC 0 ms 128 KB
test_2022.txt AC 0 ms 128 KB
test_2024.txt AC 0 ms 128 KB