Вот, вроде работает:
Объяснение:
a = int(input("Сколько дней заниматься математикой?"))
b = int(input("Сколько дней заниматься информатикой?"))
c = int(input("Сколько чашек чая выпивать, когда занимаешься математикой?"))
d = int(input("Сколько чашек чая выпивать, когда занимаешься информатикой?"))
n = int(input("Сколько недель будешь заниматься?"))
chashka = 0
n = n*7
while n > 0:
chashka = chashka + c * a
n = n - a
chashka = chashka + d * b
n = n - b
print(chashka, "чашек чая")
const
totalSeed=18672;
lessThan=20;
var
Days:word;
begin
Days:=(totalSeed-lessThan+1) div round(totalSeed/200);
write('Days - ',Days); readln;
end.