Дом(наоборот "мод") +семь (первую и последнюю букву убираем"ем")
Мод+ем=модем
Удачи в Сириусе)
n, k, m = map(int, input().split())
counter = 0
while k < n:
ost = n // k
counter += ost * (k // m)
n -= ost * (k // m) * m
print(counter)
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2();
(a,b):=(a/2,b+30);
write(a,' ',b);
end.
Var m:array of integer;
a,b,i,n,min,max:integer;
begin
readln(n,a,b);
setlength(m,n);
n-=1;
a-=1;
b-=1;
max:=a;
min:=a;
for i:=0 to n do begin
read(m[i]);
if (i>=a) and (i<=b) and (m[i]>m[max]) then max:=i;
if (i>=a) and (i<=b) and (m[i]<m[min]) then min:=i;
end;
writeln('Min ',m[min],' Max ',m[max]);
<span>end.</span>
А интернет для чего тебе? Это же лёгкие вопросы!