Submission #3775352

Source Code Expand

var
 i,j,k,x,y,s:longint;
begin
 readln(x,y);
 for i:=0 to x do
  for j:=0 to x do
   begin
    if (y-i-j>=0) and (y-i-j<=x) then
     inc(s);
   end;
 writeln(s);
end.

Submission Info

Submission Time
Task B - Sum of Three Integers
User luogu_bot1
Language Pascal (FPC 2.6.2)
Score 200
Code Size 179 Byte
Status AC
Exec Time 9 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 200 / 200
Status
AC × 2
AC × 10
Set Name Test Cases
Sample sample_01.txt, sample_02.txt
All sample_01.txt, sample_02.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt, subtask_1_08.txt
Case Name Status Exec Time Memory
sample_01.txt AC 0 ms 128 KB
sample_02.txt AC 0 ms 128 KB
subtask_1_01.txt AC 9 ms 128 KB
subtask_1_02.txt AC 2 ms 128 KB
subtask_1_03.txt AC 9 ms 128 KB
subtask_1_04.txt AC 2 ms 128 KB
subtask_1_05.txt AC 0 ms 128 KB
subtask_1_06.txt AC 1 ms 128 KB
subtask_1_07.txt AC 6 ms 128 KB
subtask_1_08.txt AC 1 ms 128 KB