Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
murplushka
08.10.2020 23:50 •
Информатика
Паскаль. с клавиатуры вводится натуральное число x. требуется получить число y, в котором записаны цифры числа x в обратном порядке. например, x=123 y=321. примечание. решите с рекурсивной процедуры. 50
Показать ответ
Ответ:
Sasga59832
07.10.2020 11:50
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
procedure Rvr(var n,nr:BigInteger);
begin
if n<>0 then begin
nr:=nr*10+ n mod 10;
n:=n div 10;
Rvr(n,nr)
end
end;
begin
var nr:=BigInteger(0);
var n:=ReadlnString('Введите натуральное число:').ToBigInteger;
Rvr(n,nr);
Writeln(nr)
end.
Пример
Введите натуральное число: 234536406567867348292735385468776123478182736
637281874321677864583537292843768765604635432
0,0
(0 оценок)
Ответ:
Nesnayka228
07.10.2020 11:50
Var X, Y: longint;
procedure revX(X: longint; var Y: longint);
begin
if X <> 0 then
begin
Y := Y * 10 + (X mod 10);
revX(X div 10, Y);
end;
end;
begin
write('Введите X = ');
readln(X);
revX(X, Y);
writeln(Y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
leryush1
29.08.2022 21:59
Для кодирования некоторой последовательности, состоящей из букв у, ч, е, н, и и к, используется неравномерный двоичный префиксный код. вот этот код: у — 000, ч — 001, е — 010,...
karinochka666
28.06.2021 16:55
Вклассе был опрос, кому какой вопрос нравиться, 18 детей сказали , 20-, 15-. 6 детей сказали, что любят и и , 4 ребенка- и , 5- и . 2ребенка любят все три предмета. 4 сказали,...
Dima1234567y
28.06.2021 16:55
Спрограммой. на питоне(python) : определить периметры треугольников, заданных координатами их вершин xa(5), xb(5), xc( в массиве) ya(5), yb(5), yc(5) длину стороны треугольников...
ralina27
28.06.2021 16:55
Установите соответствие между числами и минимально возможными основаниями систем счисления им соответствующими 2010 8 6715 9 1024 5 8767 3...
GolubinoeMoloko
18.10.2020 20:38
Уисполнителя калькулятор 2 команды: 1 прибавь 4, 2 вычти 3. первая из них увеличивает число на экране на 4, вторая уменьшает его на 3. сколько различных чисел можно получить...
яТУПОЙшкололо
06.05.2020 02:53
Напишіть відгук на вірші А. Ахматової А ты думал, я тоже такая? , Двадцать первое. Ночь. Понедельник , Я научилась просто, мудро жить ....
Katerina9322
06.05.2020 02:53
2. Что представляет из себя так называемый «рылеевский жанр»? 3. О чем были думы Рылеева? Что составляло их содержательную основу? Чему учили думы? 4. Кто являлся героями дум...
МировойПельмень
06.05.2020 02:53
Какое настроение вызвало у вас стихотворение Учись у них у дуба у берёзы А.А Фета? объясните почему?...
ni4ego
06.05.2020 02:53
После смерти Энского Н.Н. его жена принесла нотариусу письменное завещание умершего, не удостоверенное нотариально. Объясняя данный факт, вдова сослалась на то, что Энский составил...
Асентай
06.05.2020 02:53
Какие казахстанские спортсмены стали призёрами последних олимпийских игр...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
procedure Rvr(var n,nr:BigInteger);
begin
if n<>0 then begin
nr:=nr*10+ n mod 10;
n:=n div 10;
Rvr(n,nr)
end
end;
begin
var nr:=BigInteger(0);
var n:=ReadlnString('Введите натуральное число:').ToBigInteger;
Rvr(n,nr);
Writeln(nr)
end.
Пример
Введите натуральное число: 234536406567867348292735385468776123478182736
637281874321677864583537292843768765604635432
procedure revX(X: longint; var Y: longint);
begin
if X <> 0 then
begin
Y := Y * 10 + (X mod 10);
revX(X div 10, Y);
end;
end;
begin
write('Введите X = ');
readln(X);
revX(X, Y);
writeln(Y);
end.