Цифры натурального числа поместить в массив в том же порядке, в каком они записаны в числа. ( турбо Паскаль)
Answers & Comments
ProStranStvo
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.
Answers & Comments
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.