• Дано натуральное число. Определите, из скольких цифр оно состоит. Входные данные Ввод содержит целое число N (1 ≤ N ≤

Ответы 1

  • constzn:string[36]=\'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ\';function Convert(a:longint;base:byte):string;var s:string;begins:=\'\';repeats:=zn[(a mod base)+1]+s;a:=a div base;until a=0;Convert:=s;end;var f,g:text;n,i,j,k,d:longint;s:string;b:boolean;m:set of char;beginassign(f,\'input.txt\');reset(f);assign(g,\'output.txt\');rewrite(g);read(f,n);close(f);for i:=2 to 36 do beginj:=n;s:=Convert(j,i);m:=[];b:=true;k:=1;d:=length(s);while(k<=d)and b doif s[k] in m then b:=falseelsebegininclude(m,s[k]);inc(k);end;if b then writeln(g,\' \',i,\' \',s); end;close(g);end.
    • Автор:

      ashlr4f
    • 4 года назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years