Числа Вам даны число N и цифра…

Question

Числа Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.

Answer 1

69

valery_ccc

06 апреля 2023

Uses crt; var n,d,z,x,c,k,a,b: integer; begin write ('N: '); readln (n); write ('D: '); readln (d); a: =round (power (10,n-1); b: =round (power (10,n) -1); for x: =a to b do begin z: =x; k: =0; while z>0 do begin c: =z mod 10; if c=d then inc (k); z: =z div 10; end; if k=0 then writeln (x); end; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: