Submission #2598971


Source Code Expand

var
        m,x,k,y:longint;
begin
        readln(m);
        for x:=1 to 9 do
        begin
                for y:=1 to 9 do
                begin
                        k:=x*y;
                        if k=(2025-m) then writeln(x,' x ',y);
                end;
        end;
end.

Submission Info

Submission Time
Task C - 九九足し算
User luogu_bot2
Language Pascal (FPC 2.6.2)
Score 100
Code Size 293 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