Submission #1834388


Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

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

    if b*c > d*a then
      Writeln('TAKAHASHI')
    else if b*c < d*a then
      Writeln('AOKI')
    else
      Writeln('DRAW');
    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 488 Byte
Status AC
Exec Time 2 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 × 3
AC × 33
Set Name Test Cases
Sample subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt
All 0.txt, 1.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 2.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, 29.txt, 3.txt, 4.txt, 5.txt, 6.txt, 7.txt, 8.txt, 9.txt, subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt
Case Name Status Exec Time Memory
0.txt AC 0 ms 128 KB
1.txt AC 0 ms 128 KB
10.txt AC 0 ms 128 KB
11.txt AC 0 ms 128 KB
12.txt AC 0 ms 128 KB
13.txt AC 0 ms 128 KB
14.txt AC 0 ms 128 KB
15.txt AC 0 ms 128 KB
16.txt AC 0 ms 128 KB
17.txt AC 0 ms 128 KB
18.txt AC 0 ms 128 KB
19.txt AC 0 ms 128 KB
2.txt AC 0 ms 128 KB
20.txt AC 0 ms 128 KB
21.txt AC 0 ms 128 KB
22.txt AC 0 ms 128 KB
23.txt AC 0 ms 128 KB
24.txt AC 0 ms 128 KB
25.txt AC 0 ms 128 KB
26.txt AC 0 ms 128 KB
27.txt AC 0 ms 128 KB
28.txt AC 0 ms 128 KB
29.txt AC 0 ms 128 KB
3.txt AC 0 ms 128 KB
4.txt AC 0 ms 128 KB
5.txt AC 0 ms 128 KB
6.txt AC 0 ms 128 KB
7.txt AC 0 ms 128 KB
8.txt AC 0 ms 128 KB
9.txt AC 0 ms 128 KB
subtask0_sample_01.txt AC 0 ms 128 KB
subtask0_sample_02.txt AC 0 ms 128 KB
subtask0_sample_03.txt AC 2 ms 128 KB