Submission #3722705

Source Code Expand

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

Submission Info

Submission Time
Task C - 九九足し算
User luogu_bot1
Language Pascal (FPC 2.6.2)
Score 100
Code Size 143 Byte
Status AC
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 100 / 100
Status
AC × 20
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 AC 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