Безотлагательно. Помогите. Нужно составить программу к решению задачки: "Дано число n.

Безотлагательно. Помогите. Необходимо составить программку к решению задачки: "Дано число n. Перевернуть число".

Задать свой вопрос
Леночка Ярхипова
Текстовый формат вывода перевёрнутого числа (String) Вас устроит?
2 ответа
Var
  n, m: longint;
begin
  m:=0;
  readln(n);
  while n gt; 0 do 
  begin
    m := m*10 + n mod 10;
    n := n div 10;
  end;
  writeln(m);
end.

Пример:
13804
40831
Var
  n, res, m: longint;
  s: string;

begin
  readln(n);
  while n lt;gt; 0 do
  begin
    m := n mod 10;
    s := s + (m.ToString);
    n := n div 10;
  end;
  res := s.ToInteger;
  writeln(res);
end.
Колька Чулаев
(m.ToString), s.ToInteger, longint, (res) - не встречались нам, не проходили.
Анатолий Шкурапет
x.ToString - конвертирует число x в строковый тип данных (string); x.ToInteger - конвертирует строку x в соответствующее число. longint - тип данных, сходственный integer, но бережёт в для себя значения от -2147483648..2147483647 (просто вместо него напиши integer), res - это просто ПЕРЕМЕННАЯ, ничего такового. Это как a и b. Writeln(res) выводит его на экран. Да, это всё в справке можно отыскать.
Яна Дземидович
Если остались ещё вопросы, то в лс.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт