Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Swerri
24.06.2020 02:43 •
Информатика
Напишите функцию function reverse (n: integer): integer (pascal), которая переставляет цифры числа в обратном порядке .
Показать ответ
Ответ:
Il123456
23.09.2020 23:51
Function reverse(n:integer):integer;
var m:integer;
begin
m:=0;
while n>0 do
begin
m:=m*10+n mod 10;
n:=n div 10;
end;
reverse:=m;
end;
begin
writeln(reverse(12345));
end.
Результат:
54321
0,0
(0 оценок)
Популярные вопросы: Информатика
аааликкк
28.07.2022 19:27
Написать и выполнить SQL запрос, Вывести на печать фамилии и инициалы, дни рождения с указанием количества лет для студентов, отмечающих день рождения в текущем месяце....
Sss5555500
24.06.2021 11:17
Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 6 и оканчивающихся на 4 .программа получает на ввод натуральные числа , количество...
Arsen2045
16.08.2021 20:49
Ертегі кейіпкерлерін ата және оларды сипаттап жаз...
gornovayaveron
13.03.2023 01:46
Choose TV programmes Ex 4...
сонясонясоня1
27.10.2021 18:46
Преврати обыкновенные вещи в волшебные, наделив их чудес- ными свойствами.Например: Клубок-навигатор легко ориенти-роваться в пространстве и находить то, что нужно....
alona2017
04.09.2020 16:19
висота витоку річки Прип яті...
AnDrejk4
12.02.2021 15:36
Определи ряд словосочетаний, которые больше подходят для создания эссе повествования. остроконечные вершины, белоснежные шапки, отвесные склоны, черные выступылесные массивы, каменистая...
литературщик
27.08.2022 20:36
Кто такой Дамока? Назовите всех его друзей.Где жил Дамока?Как Дамока попал к людям?Как звали родителей Дамирхана?Как звали царицу, которой Барысхан?В чем было волшебство снежных барсов?Почему...
morni228
08.01.2022 18:12
Русский 7 класс Списать, раскрыть скобки и вставить пропущенные буквы и знаки препинания: (В)следстви_ пожаров этим летом уничтожне_о много гектаров леса. Катя умеет наб_рать текст...
Iiwang6666
31.01.2020 16:19
5. Найдите ошибку в коде программы , правильный вариант укажите ниже. ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var m:integer;
begin
m:=0;
while n>0 do
begin
m:=m*10+n mod 10;
n:=n div 10;
end;
reverse:=m;
end;
begin
writeln(reverse(12345));
end.
Результат:
54321