Написать программку в паскале: Дано естественное число n. Заменить порядок следования цифр

Написать программку в паскале: Дано естественное число n. Поменять порядок следования цифр числа n на оборотный.

Задать свой вопрос
Олеся Семихова
ReverseString можно использовать?
Роман Шергов
можно
2 ответа
Var a, N: integer;
begin 
    writeln('Введите число'); 
    readln(N); a:=0; 
    while Ngt;0 do begin 
        a:=a*10+N mod 10;  
        N:=N div 10; 
      end; 
   writeln (a); 
   readln; 
end.
Var
  n,x:string;
  i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln('Оборотное число: ',x)
end.

либо можно так:

var
  n:string;
begin
write('Введите число n: ');
readln(n);
writeln('Оборотное число: ',ReverseString(n) )
end.
Esenija Shepalina
Так пойдет?
Андрюха Варноков
да пойдет спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт