Submission #1652612


Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  nabeatsu:Integer;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Readln(nabeatsu);
    if nabeatsu mod 3 = 0 then
      Writeln('YES')
    else
      Writeln('NO');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Submission Time
Task A - 世界のFizzBuzz
User nmoxya
Language Pascal (FPC 2.6.2)
Score 100
Code Size 387 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 × 12
Set Name Test Cases
All sample_01.txt, sample_02.txt, sample_03.txt, test_1.txt, test_2.txt, test_3.txt, test_4.txt, test_5.txt, test_6.txt, test_7.txt, test_8.txt, test_9.txt
Case Name Status Exec Time Memory
sample_01.txt AC 0 ms 128 KB
sample_02.txt AC 0 ms 128 KB
sample_03.txt AC 0 ms 128 KB
test_1.txt AC 0 ms 128 KB
test_2.txt AC 0 ms 128 KB
test_3.txt AC 0 ms 128 KB
test_4.txt AC 0 ms 128 KB
test_5.txt AC 0 ms 128 KB
test_6.txt AC 0 ms 128 KB
test_7.txt AC 0 ms 128 KB
test_8.txt AC 0 ms 128 KB
test_9.txt AC 0 ms 128 KB