Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
eva272727
10.03.2022 03:30 •
Информатика
Написать программу в паскале авс дано четырехзначное число. найти: число, полученное при прочтении его цифр справа налево.
Показать ответ
Ответ:
leger13245
20.08.2020 12:12
Var
n, k: integer;
begin
readln(n);
k:=0;
while n > 0 do
begin
k:=k*10 + n mod 10;
n:=n div 10;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mrneneen
11.12.2021 07:18
Создать массив записей, хранящий сведения о животных в зоопарке. запись должна содержать следующие поля: название животного, кличка, год рождения, масса, необходимое количество...
aaaaaalina1yuin
29.04.2021 08:09
Запиши свои примеры процессов , когда главную роль ишрает: человек...
olenkazyateva
10.10.2022 21:55
Информатика. массивы. pascalabc. 1. в двумерном массиве 4х5 вычислить сумму элементов кратных 3, значения которых больше 20. 2. найти среднее арифметическое элементов главной диагонали...
zwitterlord2
11.11.2020 08:32
Какой объём видеопамяти необходим для хранения двух страниц изображения при условии,что разрешающая дисплея равна 640•350пикселей,а количество используемых цветов -16?...
imaya88
02.10.2020 07:00
Дан одномерный массив, заполненный целыми случайными числами следующим образом: на нечетном порядковом месте должен находиться четный элемент, а на четном месте - нечетный. , !...
batovvano
20.09.2021 04:42
Ахмет Баитурсынұлынын қандаи еңбектері кітаптары оқулықтары бар?...
Локи30
25.05.2020 21:48
Руский язык стр 136 упр 237 очем говориться в тексте 7класс...
AraEv
01.11.2020 13:04
Привет можно обеснять и переводить если не сложно...
Ilya1140
12.12.2021 17:09
9 10 10 11 tlash Графикке қара. Фермер таңғы сағат 8.00-ден 10.30-daeМАТЕМАТИКА КҮНДЕЛІКТІ ӨМІРДЕЗәнысандарды аралады.S (им) )Картопeriлген жер1009070Базар605040Бидайericiri302010Ферма0Вое890Бұл...
SOLA228
20.11.2020 07:04
Найдите площади фигур, изображеных на рисунке с решением именно мне нужен ответ с решением заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n, k: integer;
begin
readln(n);
k:=0;
while n > 0 do
begin
k:=k*10 + n mod 10;
n:=n div 10;
end;
writeln(k);
end.