Вопрос по информатике:
Срочно пожалуйста программу Паскаль!!!!Даю много балов.
Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность.(Например, 1234, 5789)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.06.2018 22:40
- Информатика
- remove_red_eye 12147
- thumb_up 37
Ответы и объяснения 1
Var
n,i,count:integer;
s:string;
procedure NumPrin(counter,last:integer;num:string);
Var
i:integer;
begin
if not ((last=10) and (n-counter1)) then
if countern then
for i:=last+1 to 9 do
NumPrin(counter+1,i,num+inttostr(i))
else
writeln(num);
end;
begin
readln(n);
dec(n);
count:=0;
for i:=1 to 9 do
begin
s:=inttostr(i);
NumPrin(count,i,s);
end;
end.
- 16.06.2018 00:23
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.