Задано целое число. Вывести набор символов, содержащих цифры этого числа в обратном порядке

@Andreyko1 · Регистрация: 01.11.2015

Студворк — интернет-сервис помощи студентам

Условие: Задано целое число. Вывести набор символов, содержащих цифры этого числа в обратном порядке.
Я написал программу, но при вводе числа более чем из 5 символов она выдает неправильные результаты:

Pascal

program qwer1;
var
st, st1, st2 : string;
x, j, i, y : integer;
Begin   
writeln('Vvedite chislo');
readln(x);
writeln('Vvedite colichestvo simvolov chisla');
readln(y);
str(x,st);
j:=1;
for i:=y downto 1 do
begin
st1:=copy(st,i,1);
Insert(st1,st2,j);
j:=j+1;
end;
writeln(st2);
readln;
end.

Помогите найти и исправить ошибку

@Puporev · 01.11.2015, 15:48

Pascal

var x:longint;
Begin
writeln('Vvedite chislo');
readln(x);
while x>0 do
 begin
  write(x mod 10,' ');
  x:=x div 10;
 end;
readln;
end.

	01.11.2015, 15:48

Опции темы