Просчитайте количество целых чисель от l до r все цифры которых различный

268

298

Посмотреть ответы 3

Ответы на вопрос:

Сорян666

Информатика

4,6(68 оценок)

#просчитайте количество целых чисель от l до r все цифры которых различный # код на ruby 2.2.3p173 def alldifferentnumbers? (n) a = [] while n > 0 do return false if a.include? (n % 10) a < < n % 10 n = n / 10 end return true end def zadanie(l, r) k = 0 for i in l..r k += 1 if alldifferentnumbers? (i) end return k end # примеры применения p zadanie(11, 13)

dsfsksgsms

Информатика

4,7(88 оценок)

//pascalabc.net 3.2 сборка 1318 var l, r, counter, i: integer; function difnum(a: integer): integer; var se: set of integer; i: integer; begin while a > 0 do begin if a mod 10 in se then begin difnum : = 0; exit; end else include(se, a mod 10); a : = a div 10; end; difnum : = 1; end; begin read(l, r); for i : = l to r do counter += difnum(i); writeln(counter); end. //альтернативное решение на паскале var l,r: integer; begin read(l,r); writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.); end. //dev-c++ 5.11 (c) #include < stdio.h> #include < malloc.h> int difnum(int); int main(void) {int l,r,counter=0; scanf("%d %d",& l,& r); for(int i=l; i< =r; i++) counter+=difnum(i); printf("%d",counter); return 0; } int difnum(int a) {int k=1,*nums; nums=(int*)malloc(k*sizeof(int)); nums[0]=-1; while(a> 0) {for(int i=0; i< k; i++) if(a%10==nums[i]) return 0; k++; nums=(int*)malloc(k*sizeof(int)); nums[k-1]=a%10; a/=10; } free(nums); return 1; } пример ввода: 1 12 пример вывода: 11