Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yvvv
17.01.2022 16:07 •
Информатика
Решить с использованием подпрограммы. заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651)
Показать ответ
Ответ:
evgen22regiooon
20.08.2020 06:38
Var
N:integer;
procedure Change(var n);
var
n2,n3,i:integer;
begin
i:=1;
n2:=n;
n:=0;
while n2>0
begin
n3:=n2 mod 10;
n2:=n2 div 10;
n:=n*i + n3;
i:=i*10;
end;
end;
begin
readln(N);
Change(N);
writeln(N);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ahela007
13.02.2022 04:35
школьный компьютер принял 1 мбайт информации за 32 минуты. вычислите скорость получения этой информации...
Ясминка2006
10.11.2020 23:49
Раздай нарисуй детям воздушные шарики пользуясь схемой...
ель18
15.08.2020 06:23
Одна из возможных форм курсора. 6 букв. третья буква я...
adelina1476p0c7y7
15.08.2020 06:23
2) каково время (в минутах) передачи полного объема данных по каналу связи, если известно, что передано 9000 мбайт данных, причем треть времени передача шла со скоростью 60...
katiatrush86
15.08.2020 06:23
Текстовая информация - 50 страниц. 1 страница - 20 строк 1 строка - 10 символов 1 символ - 1 байт 10 картинок - 100х200 пикселей 1 пиксель - 3 байта найти информационный объём....
bessmertny69
04.06.2020 00:20
Как в ограждении рассадить 5-ть зайцев,чтобы возле каждой стороны из 4-х стен сидело по 2 зайца...
Agent345
04.06.2020 00:20
Запишите алгоритм циклического обмена значениями трех переменных a,b.c. схема циклического обмена a- b- c например, если до обмена было a=1,b=2,c=3, то после обмена должно стать...
Nurzhan94
04.06.2020 00:20
Заполнить случайными числами массив из n элементов, найти сумму четных элементов. [-10; 100] [65; 100] [78; 256] [-23; 45] пример: 4 15 3 10 14 сумма четных элементов 28...
Anastasias223
04.06.2020 00:20
Надо. 10000 байт перевести в килобайты 10000 байт перевести в мегабайты (мг) 600000 байт перевести в кигобайт (кб)...
12355567908753
14.09.2022 07:36
Написать программу для ввода значения величины x целого типа, присваивания величине y действительного типа значения 5.5, вычисления значения величины z = x - y и вывода значения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N:integer;
procedure Change(var n);
var
n2,n3,i:integer;
begin
i:=1;
n2:=n;
n:=0;
while n2>0
begin
n3:=n2 mod 10;
n2:=n2 div 10;
n:=n*i + n3;
i:=i*10;
end;
end;
begin
readln(N);
Change(N);
writeln(N);
end.