Submission #1867253


Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

var
  a,b:Integer;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    Read(a);
    Readln(b);

    Writeln(Ceil(b/a));
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Submission Time
Task A - お茶
User nmoxya
Language Pascal (FPC 2.6.2)
Score 100
Code Size 352 Byte
Status AC
Exec Time 1 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 Testset1
Score / Max Score 50 / 50 50 / 50
Status
AC × 22
AC × 11
Set Name Test Cases
All 000.txt, 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt, 012.txt, 013.txt, 014.txt, 015.txt, 016.txt, 017.txt, 018.txt, 019.txt, 020.txt, 021.txt
Testset1 000.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt
Case Name Status Exec Time Memory
000.txt AC 0 ms 128 KB
001.txt AC 0 ms 128 KB
002.txt AC 0 ms 128 KB
003.txt AC 0 ms 128 KB
004.txt AC 0 ms 128 KB
005.txt AC 0 ms 128 KB
006.txt AC 0 ms 128 KB
007.txt AC 0 ms 128 KB
008.txt AC 0 ms 128 KB
009.txt AC 0 ms 128 KB
010.txt AC 1 ms 128 KB
011.txt AC 0 ms 128 KB
012.txt AC 0 ms 128 KB
013.txt AC 0 ms 128 KB
014.txt AC 0 ms 128 KB
015.txt AC 0 ms 128 KB
016.txt AC 0 ms 128 KB
017.txt AC 0 ms 128 KB
018.txt AC 0 ms 128 KB
019.txt AC 0 ms 128 KB
020.txt AC 0 ms 128 KB
021.txt AC 0 ms 128 KB