Перевести из C в Java print_f ('Y/N')
epl1=scan_f(%pl1);
print_f ('Y/N')
eK_INF=scan_f(%eK_INF);
pl=scan_f(%pl);
bs=scan_f(%bs);
TERM=scan_f(%TERM);

case epl1==Y && eK_INF==Y {
pl1=scan_f(%pl1);
K_INF=scan_f(%K_INF);
result=pl+pl1*bs*K_INF*TERM;
}

case epl1==Y && eK_INF==N {
pl1=scan_f(%pl1);
result=pl+pl1*bs*TERM;
}

case epl1==N && eK_INF==Y {
K_INF=scan_f(%K_INF);
result=pl*bs*K_INF*TERM;
}

case epl1==N && eK_INF==N {
pl1=scan_f(%pl1);
K_INF=scan_f(%K_INF);
result=pl+*bs*TERM;
}
print_f(result);

Первая программа: program first_program; var  i: longint; begin  for i : = 15 to 35 do    begin    if(i mod 2 = 0) then      write(i, ' ')  end; end. вторая программа: program second_program; var  i, h, g: integer;   k: string; begin  k : = '';   for i : = 1 to 20 do    if i mod 2 = 0 then      write(i, ' ');   writeln;   for i : = 20 to 30 do    if odd(i) then      k : = k + i + ',';   g : = length(k);   for i : = g downto g - 1 do    if (k[i] = ',') then      delete(k, i, 1);   write(k)end. третья программа: program third_program; var  i, sum, proz: integer; begin  sum : = 0;   proz : = 1;   for i : = 1 to 10 do    if (i mod 2 = 0) then      sum : = sum + i    else      proz : = proz * i;   writeln(sum);   write(proz); end. четвертая программа: program fourth_program; var  i: longint;   k: integer; begin  k : = 0;   for i : = 10 to 99 do    if (i mod 2 = 0) and (i mod 3 = 0) then      k : = k + i;   write(k)end.