Submission #2597438

Source Code Expand

var a,b,i_max,i:integer;
begin
    readln(a);
    readln(b);
    for i:=1 to a do begin
        if i mod b = 0 then i_max:=i;
        end;
    writeln(i_max);
    
end.

Submission Info

Submission Time
Task A - 本選参加者数
User sismi
Language Pascal (FPC 2.6.2)
Score 100
Code Size 179 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 Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 4
AC × 10
Set Name Test Cases
Sample sample-01.txt, sample-02.txt, sample-03.txt, sample-04.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, sample-01.txt, sample-02.txt, sample-03.txt, sample-04.txt
Case Name Status Exec Time Memory
01.txt AC 0 ms 128 KB
02.txt AC 0 ms 128 KB
03.txt AC 0 ms 128 KB
04.txt AC 0 ms 128 KB
05.txt AC 0 ms 128 KB
06.txt AC 0 ms 128 KB
sample-01.txt AC 0 ms 128 KB
sample-02.txt AC 0 ms 128 KB
sample-03.txt AC 0 ms 128 KB
sample-04.txt AC 0 ms 128 KB