var
a: integer;
begin
writeln('Введите день недели:'); readln(a);
case a of
1 : writeln('Понедельник');
2 : writeln('Вторник');
3 : writeln('Среда');
4 : writeln('Четверг');
5 : writeln('Пятница');
6 : writeln('Суббота');
7 : writeln('Воскресенье');
else writeln('В неделе только 7 дней.');
end;
end.
A = int(input())
k = 0
while a != 0:
k = k+1
a = int(input())
print(k)
Пример:
15
87
60
45
73
0
15
47
5
Минимальное основание 10, потому что там "9", а девятка это максимум среди чисел. (0,1,2,3,4,5,6,7,8,9.)