Цифры натурального числа поместить в массив в том же порядке, в каком они записаны в числа. ( турбо Паскаль)
5-9 класс
|
var j,n,i:longint;
a,b:array [1..1000] of integer;
begin
readln(n);// считываем число
i:=1;// начинаем с первого элемента массива
while (n>0) do //пока n больше нуля
begin
a[i]:=n mod 10; //тем самым выбираем последнюю цифру числа
n:=n div 10; // откидываем последнюю цифру
i:=i+1;// следующий элемент массива
end;
// по окончании в массиве a будет храниться наше число только
// в обратном порядке
i:=i-1;// теперь i равно длине числа +1 поэтому отнимаем 1
for j:=i downto 1 do // с конца массива а до 1
begin
b[i-j+1]:=a[j]; // заполняем b в обратном порядке
end;
//теперь в массиве b хранится наше число в нужном порядке
for j:=1 to i do
begin
write(b[j],' ');
end;
end.
Другие вопросы из категории
Нужно написать какой нибудь алгоритм в 3 формах
Линейная Графическая Блок схема
Пешеход прошел 51км за 71 час
Какое расстояние пройдет пешеход за 72ч?
Читайте также
изведение всех цифр этого числа а так же колличество больших шестии
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
исло. Вход: файл input.txt, содержащий только натуральное число n. Ограничения: 1 ≤ n ≤ 1000000. Выход: файл output.txt, содержащий одно натуральное число – n-е по счету сверхнечетное число. Пример: input.txt output.txt 13 35
вводит натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.
1. Найти те элементы массива, которые равны сумме двух своих соседей. Первый и последний элемент имеют только по одному соседу, поэтому искомыми быть не могут.
На вход программе сначало подается значение n<=100 – количество элементов в массиве. В следующей строке расположены сами элементы массива – целые числа, по модулю не превосходящие 10000. Выдайте значения искомых элементов массива в том же порядке, в каком они располагались во входных данных.
2. На вход программе подается последовательность чисел от 1 до 9, заканчивающаяся нулем. Всего будет введено не более 100000 чисел. Подсчитайте в этой последовательности количество единиц, количество двоек, количество троек и т.д. и выдайте результат. В выходных данных всегда должно быть 9 чисел.
3. Текст на английском языке запишите в массив a[1..1000] of char. Помимо английских букв в нем могут встречаться пробелы и знаки препинания. В массиве b [‘A’ ..’Z’’] of integer получите сведения о том, сколько и каких букв встречается в этом тексте. При подсчете строчные и прописные буквы не различать. На вход программе подается значение n<=1000 – количество символов в тексте. В следующей строке входных данных расположены сами символы (без разделителей). Выдайте 26 чисел – значения элементов массива b.
Пример
Входные данные
Выходные данные
12
Hello world!
0 0 0 1 1 0 0 1 0 0 0 3 0 0 2 0 0 1 0 0 0 0 1 0 0 0
4. Подсчитайте за один проход, сколько его элементов равны максимальному элементу.
На вход программе сначала подается значение n<=100 – количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. Выдайте количество искомых элементов массива.
5. В массиве, заполненным произвольными целыми числами, найдите два числа, произведение которых максимально. Вложенные циклы не используйте. На вход программе сначала подается значение n<=10000 – количество элементов в массиве. В следующей строке входных данных расположены сами элементы – целые числа, по модулю не превосходящие 30000. Выдайте два искомых числа в порядке неубывания.
6. На вход программе сначала подается значение n<=100 – количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. Распечатайте только те значения элементов массива, которые встречаются в нем ровно один раз. Элементы следует распечатывать в том порядке, в котором они встречаются в массиве.