Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 03.05.2017
Сообщений: 11

Записать каждое число последовательности в обратном порядке

26.05.2017, 15:57. Показов 1808. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Поступает последовательность целых положительных чисел, 0 - конец последовательности. Записать каждое число последовательности в обратном порядке. Например, 12345 - 54321. Создать функцию для преобразования числа.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.05.2017, 15:57
Ответы с готовыми решениями:

Задано натуральное число. Записать его в обратном порядке
Задано натуральное число. Записать его в обратном порядке. Например, 12345 должно превратиться в 54321 (Не использовать строковые операции).

В строке каждое нечетное слово перевернуть, записав в нем буквы в обратном порядке.
Всем доброго времени суток! помагиет написать программу на pascal !! очень срочно нужно немогу никак сделать, запутался! Задание:В строке...

Записать текст в обратном порядке
Дан символьынй файл f.Записать в этот же файл компоненты файла в обратном порядке.Помогите плз.

4
0 / 0 / 0
Регистрация: 03.05.2017
Сообщений: 11
26.05.2017, 16:20  [ТС]
Поступает последовательность целых положительных чисел, 0 - конец последовательности. Записать каждое число последовательности в обратном порядке. Например, 12345 - 54321. Создать функцию для преобразования числа.
0
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
26.05.2017, 16:27
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function ReverseInt(n: integer): string;
var s1, s2: string;
    i: byte;
begin
  str(n, s1);
  s2 := '';
  for i := length(s1) downto 1 do
    s2 := s2 + s1[i];
  ReverseInt := s2;
end;
 
var n: integer;
begin
  readln(n);
  while n <> 0 do begin
    writeln(ReverseInt(n));
    readln(n);
  end;
end.
1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
26.05.2017, 17:22
Цитата Сообщение от t0ugh Посмотреть сообщение
Записать каждое число последовательности в обратном порядке.
А например число 1000 наоборот это 1 или 0001?
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
26.05.2017, 17:23
Вывести заданную последовательность чисел в обратном порядке. Без использования массивов
Вывести число в обратном порядке
Задано натуральное число. Записать его в обратном порядке
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.05.2017, 17:23
Помогаю со студенческими работами здесь

Записать элементы массива в обратном порядке
Записать елементы массива А(n) в обратном порядке ПОМОГИТЕ РЕШИТЬ))))!!!

Записать элементы массива в обратном порядке
Записать елементы массива А(n) в обратном порядке Добавлено через 15 секунд помогите решить вообще нечего понять не могу.

Записать компоненты файла в обратном порядке
Дан символьный файл f. Записать в файл g компоненты файла f в обратном порядке.

Дано натуральное число n написать число в обратном порядке
Нужно сейчас! пожалуйста! дано натуральное число n написать число в обратном порядке

Написать программу, которая получает число, состоящее из тех же цифр, что и число, но в обратном порядке
Дано некоторое целое число b. Написать программу, которая получает число d, состоящее из тех же цифр что и число b, но в обратном порядке....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru