Вам даны число N и цифра D.Выведите все N-значные числа,которые не содержат цифру D, в возрастающем порядке.
Вам даны число N и цифра D.Выведите все N-значные числа,которые не содержат цифру D, в возрастающем порядке.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:integer;
begin
writeln('Введите число');
readln(a);
writeln('Введите цифру');
read(b);
if ((a mod 10)<>b) and ((a div 10)<>b) and (a<100) then begin
a:=a+1;
write(" ",a);
end;
end.
Не нашли ответ?
Похожие вопросы