сервис вопросов и ответовВам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.
10-11 класс|
|
AdaSmail13
21 авг. 2013 г., 21:45:02 (10 лет назад)
AnyaMeaw
21 авг. 2013 г., 23:44:08 (10 лет назад)
Извращенно, но главное, что работает:
uses crt;
var n,d,j,m:integer;
i,k:string;
flag:byte;
begin
read(n,d);
i:='1';
k:='9';
while length(i)<n do
begin
i:=concat(i,'0');
k:=concat(k,'9');
end;
for j:=strtoint(i) to strtoint(k) do
begin
flag:=1;
for m:=1 to length(inttostr(j)) do
if strtoint(inttostr(j)[m])=d then
flag:=0;
if flag=1 then
write(inttostr(j),' ');
end;
end.
Sofi0709031
22 авг. 2013 г., 0:17:03 (10 лет назад)
uses crt;
var n,d,x,a,k:integer;
begin
write('N: '); readln(n);
write('D: '); readln(d);
for x:=round(power(10,n-1)) to round(power(10,n)-1) do
begin
a:=x;
k:=0;
while a>0 do begin
if a mod 10=d then inc(k);
a:=a div 10;
end;
if k=0 then write(x,' ');
end;
end.
Ответить
Другие вопросы из категории
какое количество информации несет сообщение,что месяц проведения олимпиады-декабрь? сообщение,записанное буквами из 64-х символьного
алфавита, содержит 20 символов. Какой объём информации оно несет?
Скорость записи и считывания информации дискет составляет:
а) 250 Кбит/с
б) 150 Кбит/с
в) 100 Кбит/с
г) 50 Кбит/с
Помогите решить!! и с формулой сразу, а не просто ариф-ие действия)
Оперативная память компьютера содержит 163840
машинных слов, что составляет 0,625 Мбайт. Сколько бит содержит каждое машинное
слово?
Читайте также
4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
2. Найти все двузначные числа, сумма квадратов которых делится на 17.
Всё это нужно сделать в программе Паскаль, но КАК?!
1)составить блок-схему поиска двузначных чисел,таких,что если к сумме цифр этого числа прибавить квадрат этой суммы,то получится это число.
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.
Однажды, посетив магазин канцелярских товаров, Вася купил X карандашей, Y ручек и Z фломастеров. Известно, что цена ручки на 2 рубля больше цены
карандаша и на 7 рублей меньше цены фломастера. Также известно, что стоимость карандаша составляет 3 рубля. Требуется определить общую стоимость покупки.
Входные данныеВ единственной строке входного файла INPUT.TXT записаны три натуральных числа X, Y и Z через пробел, каждое из которых не превышает 109.
Выходные данныеВ выходной файл OUTPUT.TXT выведите одно целое число – стоимость покупки в рублях.
Вы находитесь на странице вопроса "Вам даны число N и цифра D. Выведите все N-значные числа, которые не содержат цифру D, в возрастающем порядке.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.