<h2>Код</h2>
- n = int(input())
- print(max(list(str(n))))
<h2>Ввод</h2>
78678687785287678651267582658726559
<h2>Вывод</h2>
9
Нет не будет 0001,
А будет так:
Var k,n,i,sum:integer;
Begin
Readln(n);
k:=1;
for i:=1 to n do
begin
sum:=sum+a;
k:=k*2
end;
Writeln('Сумма первых ',n,' слагаемых ряда равна ',sum)
End.
Полагаю, печатная машинка (телеграф? факс?), а вообще, он ещё функции граммофона, диктофона и телефона объединил:) Ну... О плите и пылесосе промолчу, ибо юмор