#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int pow(double, int);
int /*<<< orphan*/ printf(char *, int);
scalar_t__ scanf(char *, int *, int *, int *, int *);
int main() {
  int ev1, ev2, at, d, n1, n2;
  double p, q, prob;
  while (scanf("%d%d%d%d", &ev1, &ev2, &at, &d) && ev1 * ev2 * at * d != 0) {
    p = (float)at / 6.0;
    q = 1 - p;
    n1 = (float)ev1 / d;
    if (ev1 % d > 0) {
      n1++;
    }
    n2 = (float)ev2 / d;
    if (ev2 % d > 0) {
      n2++;
    }
    if (p == 0.5) {
      prob = (float)n1 / (n1 + n2);
      printf("%.1lf\n", 100 * prob);
    } else {
      printf("%.1lf\n",
             100 * ((1 - pow((q / p), n1)) / (1 - pow((q / p), n1 + n2))));
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xeda(%rip),%rdi
lea    -0x8(%rbp),%rsi
lea    -0xc(%rbp),%rdx
lea    -0x10(%rbp),%rcx
lea    -0x14(%rbp),%r8
call   1040 <scanf@plt>
mov    %rax,%rcx
xor    %eax,%eax
cmp    $0x0,%rcx
mov    %al,-0x39(%rbp)
je     1185 <main+0x55>
mov    -0x8(%rbp),%eax
imul   -0xc(%rbp),%eax
imul   -0x10(%rbp),%eax
imul   -0x14(%rbp),%eax
cmp    $0x0,%eax
setne  %al
mov    %al,-0x39(%rbp)
mov    -0x39(%rbp),%al
test   $0x1,%al
jne    1195 <main+0x65>
jmp    12ce <main+0x19e>
cvtsi2ssl -0x10(%rbp),%xmm0
cvtss2sd %xmm0,%xmm0
movsd  0xe62(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  0xe49(%rip),%xmm0
subsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
cvtsi2ssl -0x8(%rbp),%xmm0
cvtsi2ssl -0x14(%rbp),%xmm1
divss  %xmm1,%xmm0
cvttss2si %xmm0,%eax
mov    %eax,-0x18(%rbp)
mov    -0x8(%rbp),%eax
cltd
idivl  -0x14(%rbp)
cmp    $0x0,%edx
jle    11ef <main+0xbf>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
cvtsi2ssl -0xc(%rbp),%xmm0
cvtsi2ssl -0x14(%rbp),%xmm1
divss  %xmm1,%xmm0
cvttss2si %xmm0,%eax
mov    %eax,-0x1c(%rbp)
mov    -0xc(%rbp),%eax
cltd
idivl  -0x14(%rbp)
cmp    $0x0,%edx
jle    121d <main+0xed>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
movsd  -0x28(%rbp),%xmm0
movsd  0xde6(%rip),%xmm1
ucomisd %xmm1,%xmm0
jne    1278 <main+0x148>
jp     1278 <main+0x148>
cvtsi2ssl -0x18(%rbp),%xmm0
mov    -0x18(%rbp),%eax
add    -0x1c(%rbp),%eax
cvtsi2ss %eax,%xmm1
divss  %xmm1,%xmm0
cvtss2sd %xmm0,%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  0xdba(%rip),%xmm0
mulsd  -0x38(%rbp),%xmm0
cvttsd2si %xmm0,%esi
lea    0xdbb(%rip),%rdi
call   1030 <printf@plt>
jmp    12c9 <main+0x199>
movsd  -0x30(%rbp),%xmm0
divsd  -0x28(%rbp),%xmm0
mov    -0x18(%rbp),%edi
call   1050 <pow@plt>
mov    %eax,%ecx
mov    $0x1,%eax
sub    %ecx,%eax
mov    %eax,-0x40(%rbp)
movsd  -0x30(%rbp),%xmm0
divsd  -0x28(%rbp),%xmm0
mov    -0x18(%rbp),%edi
add    -0x1c(%rbp),%edi
call   1050 <pow@plt>
mov    %eax,%edx
mov    -0x40(%rbp),%eax
mov    $0x1,%ecx
sub    %edx,%ecx
cltd
idiv   %ecx
imul   $0x64,%eax,%esi
lea    0xd65(%rip),%rdi
call   1030 <printf@plt>
jmp    113f <main+0xf>
xor    %eax,%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
lea    0xedb(%rip),%rdi
lea    0xc(%rsp),%rsi
lea    0x8(%rsp),%rdx
lea    0x4(%rsp),%rcx
mov    %rsp,%r8
call   1040 <scanf@plt>
test   %rax,%rax
je     12b9 <main+0x189>
lea    0xebd(%rip),%rbp
lea    0xead(%rip),%r12
mov    %rsp,%r13
jmp    11fd <main+0xcd>
nopl   0x0(%rax,%rax,1)
movsd  0xe88(%rip),%xmm1
subsd  %xmm0,%xmm1
divsd  %xmm0,%xmm1
movsd  %xmm1,0x10(%rsp)
movapd %xmm1,%xmm0
mov    %r14d,%edi
call   1050 <pow@plt>
mov    %r12,%rbx
mov    $0x1,%r12d
sub    %eax,%r12d
add    %r14d,%r15d
movsd  0x10(%rsp),%xmm0
mov    %r15d,%edi
call   1050 <pow@plt>
mov    $0x1,%ecx
sub    %eax,%ecx
mov    %r12d,%eax
mov    %rbx,%r12
cltd
idiv   %ecx
imul   $0x64,%eax,%esi
mov    %rbp,%rdi
call   1030 <printf@plt>
mov    %r12,%rdi
lea    0xc(%rsp),%rsi
lea    0x8(%rsp),%rdx
lea    0x4(%rsp),%rcx
mov    %r13,%r8
call   1040 <scanf@plt>
test   %rax,%rax
je     12b9 <main+0x189>
mov    0xc(%rsp),%eax
mov    0x8(%rsp),%ecx
mov    %ecx,%edi
imul   %eax,%edi
mov    0x4(%rsp),%ebx
mov    (%rsp),%esi
mov    %ebx,%edx
imul   %esi,%edx
imul   %edi,%edx
test   %edx,%edx
je     12b9 <main+0x189>
xorps  %xmm0,%xmm0
cvtsi2ss %ebx,%xmm0
xorps  %xmm1,%xmm1
cvtsi2ss %eax,%xmm1
cvtss2sd %xmm0,%xmm0
xorps  %xmm2,%xmm2
cvtsi2ss %esi,%xmm2
divsd  0xdbe(%rip),%xmm0
divss  %xmm2,%xmm1
cvttss2si %xmm1,%edi
cltd
idiv   %esi
xor    %r14d,%r14d
test   %edx,%edx
setg   %r14b
xorps  %xmm1,%xmm1
cvtsi2ss %ecx,%xmm1
add    %edi,%r14d
divss  %xmm2,%xmm1
cvttss2si %xmm1,%edi
mov    %ecx,%eax
cltd
idiv   %esi
xor    %r15d,%r15d
test   %edx,%edx
setg   %r15b
add    %edi,%r15d
ucomisd 0xd87(%rip),%xmm0
jne    1180 <main+0x50>
jp     1180 <main+0x50>
xorps  %xmm0,%xmm0
cvtsi2ss %r14d,%xmm0
add    %r14d,%r15d
xorps  %xmm1,%xmm1
cvtsi2ss %r15d,%xmm1
divss  %xmm1,%xmm0
cvtss2sd %xmm0,%xmm0
mulsd  0xd68(%rip),%xmm0
cvttsd2si %xmm0,%esi
jmp    11d2 <main+0xa2>
xor    %eax,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [9 x i8] c"%d%d%d%d\00"
@.str.1 = [7 x i8] c"%.1lf\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca double
%9 = alloca double
%10 = alloca double
store i32 0, i32* %1
br label %11
11: ; preds = %93, %0
%12 = call i64 @scanf(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i32* %2, i32* %3, i32* %4, i32* %5)
%13 = icmp ne i64 %12, 0
br i1 %13, label %14, label %23
14: ; preds = %11
%15 = load i32, i32* %2
%16 = load i32, i32* %3
%17 = mul nsw i32 %15, %16
%18 = load i32, i32* %4
%19 = mul nsw i32 %17, %18
%20 = load i32, i32* %5
%21 = mul nsw i32 %19, %20
%22 = icmp ne i32 %21, 0
br label %23
23: ; preds = %14, %11
%24 = phi i1 [ false, %11 ], [ %22, %14 ]
br i1 %24, label %25, label %94
25: ; preds = %23
%26 = load i32, i32* %4
%27 = sitofp i32 %26 to float
%28 = fpext float %27 to double
%29 = fdiv double %28, 6.000000e+00
store double %29, double* %8
%30 = load double, double* %8
%31 = fsub double 1.000000e+00, %30
store double %31, double* %9
%32 = load i32, i32* %2
%33 = sitofp i32 %32 to float
%34 = load i32, i32* %5
%35 = sitofp i32 %34 to float
%36 = fdiv float %33, %35
%37 = fptosi float %36 to i32
store i32 %37, i32* %6
%38 = load i32, i32* %2
%39 = load i32, i32* %5
%40 = srem i32 %38, %39
%41 = icmp sgt i32 %40, 0
br i1 %41, label %42, label %45
42: ; preds = %25
%43 = load i32, i32* %6
%44 = add nsw i32 %43, 1
store i32 %44, i32* %6
br label %45
45: ; preds = %42, %25
%46 = load i32, i32* %3
%47 = sitofp i32 %46 to float
%48 = load i32, i32* %5
%49 = sitofp i32 %48 to float
%50 = fdiv float %47, %49
%51 = fptosi float %50 to i32
store i32 %51, i32* %7
%52 = load i32, i32* %3
%53 = load i32, i32* %5
%54 = srem i32 %52, %53
%55 = icmp sgt i32 %54, 0
br i1 %55, label %56, label %59
56: ; preds = %45
%57 = load i32, i32* %7
%58 = add nsw i32 %57, 1
store i32 %58, i32* %7
br label %59
59: ; preds = %56, %45
%60 = load double, double* %8
%61 = fcmp oeq double %60, 5.000000e-01
br i1 %61, label %62, label %75
62: ; preds = %59
%63 = load i32, i32* %6
%64 = sitofp i32 %63 to float
%65 = load i32, i32* %6
%66 = load i32, i32* %7
%67 = add nsw i32 %65, %66
%68 = sitofp i32 %67 to float
%69 = fdiv float %64, %68
%70 = fpext float %69 to double
store double %70, double* %10
%71 = load double, double* %10
%72 = fmul double 1.000000e+02, %71
%73 = fptosi double %72 to i32
%74 = call i32 @printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i32 %73)
br label %93
75: ; preds = %59
%76 = load double, double* %9
%77 = load double, double* %8
%78 = fdiv double %76, %77
%79 = load i32, i32* %6
%80 = call i32 @pow(double %78, i32 %79)
%81 = sub nsw i32 1, %80
%82 = load double, double* %9
%83 = load double, double* %8
%84 = fdiv double %82, %83
%85 = load i32, i32* %6
%86 = load i32, i32* %7
%87 = add nsw i32 %85, %86
%88 = call i32 @pow(double %84, i32 %87)
%89 = sub nsw i32 1, %88
%90 = sdiv i32 %81, %89
%91 = mul nsw i32 100, %90
%92 = call i32 @printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i32 %91)
br label %93
93: ; preds = %75, %62
br label %11
94: ; preds = %23
ret i32 0
}

LLVM IR (-O2):
@.str = [9 x i8] c"%d%d%d%d\00"
@.str.1 = [7 x i8] c"%.1lf\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = bitcast i32* %1 to i8*
%6 = bitcast i32* %2 to i8*
%7 = bitcast i32* %3 to i8*
%8 = bitcast i32* %4 to i8*
%9 = call i64 @scanf(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i32* %1, i32* %2, i32* %3, i32* %4)
%10 = icmp eq i64 %9, 0
br i1 %10, label %63, label %11
11: ; preds = %0, %58
%12 = load i32, i32* %1
%13 = load i32, i32* %2
%14 = mul nsw i32 %13, %12
%15 = load i32, i32* %3
%16 = mul nsw i32 %14, %15
%17 = load i32, i32* %4
%18 = mul nsw i32 %16, %17
%19 = icmp eq i32 %18, 0
br i1 %19, label %63, label %20
20: ; preds = %11
%21 = sitofp i32 %15 to float
%22 = fpext float %21 to double
%23 = fdiv double %22, 6.000000e+00
%24 = sitofp i32 %12 to float
%25 = sitofp i32 %17 to float
%26 = fdiv float %24, %25
%27 = fptosi float %26 to i32
%28 = srem i32 %12, %17
%29 = icmp sgt i32 %28, 0
%30 = zext i1 %29 to i32
%31 = add nsw i32 %30, %27
%32 = sitofp i32 %13 to float
%33 = fdiv float %32, %25
%34 = fptosi float %33 to i32
%35 = srem i32 %13, %17
%36 = icmp sgt i32 %35, 0
%37 = zext i1 %36 to i32
%38 = add nsw i32 %37, %34
%39 = fcmp oeq double %23, 5.000000e-01
br i1 %39, label %40, label %48
40: ; preds = %20
%41 = sitofp i32 %31 to float
%42 = add nsw i32 %38, %31
%43 = sitofp i32 %42 to float
%44 = fdiv float %41, %43
%45 = fpext float %44 to double
%46 = fmul double %45, 1.000000e+02
%47 = fptosi double %46 to i32
br label %58
48: ; preds = %20
%49 = fsub double 1.000000e+00, %23
%50 = fdiv double %49, %23
%51 = call i32 @pow(double %50, i32 %31)
%52 = sub nsw i32 1, %51
%53 = add nsw i32 %38, %31
%54 = call i32 @pow(double %50, i32 %53)
%55 = sub nsw i32 1, %54
%56 = sdiv i32 %52, %55
%57 = mul nsw i32 %56, 100
br label %58
58: ; preds = %48, %40
%59 = phi i32 [ %57, %48 ], [ %47, %40 ]
%60 = call i32 @printf(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i32 %59)
%61 = call i64 @scanf(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0), i32* %1, i32* %2, i32* %3, i32* %4)
%62 = icmp eq i64 %61, 0
br i1 %62, label %63, label %11
63: ; preds = %11, %58, %0
ret i32 0
}