Красив тот, кто красиво поступает.
Вроде так
K = int(input())
m = int(input())
n = int(input())
if n<=k:
t = 2*m
elif n*2 % k==0:
t = m*(n*2 // k)
else:
t = m*(1+(n*2 // k))
print(t)
Пример:
2
1
3
3
Var g,i:integer;
begin
read(g);
if (g=1) or ((g>20) and (g mod 10=1)) then begin writeln('Мы нашли в лесу ',g,' гриб'); i:=1; end;
if ((g mod 10>1) and (g mod 10<5)) or ((g>21) and (g mod 10>1) and (g mod 10<5)) then begin writeln('Мы нашли в лесу ',g,' гриба'); i:=1; end;
if i=0 then writeln('Мы нашли в лесу ',g,' грибов');
<span>end.</span>
Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>