var
n,s:integer;
begin
repeat
write ('N = ');readln(n);
until (n>=10000) and (n<=32767);
s:=n div 10000 + (n div 1000) mod 10 + n mod 10;
writeln ('Summa: ',s);
readln;
end.
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
А)M mod 2 = 0
Т.к. остаток деления четного числа на 2 должен равняться 0
Если 2 цифры, значит оно двузначное
8 бит= 1 байт из этого исходит 8х125= 1000 бит находится в 125 байтах) Ответ может быть не верен)