Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Murua
27.07.2020 22:50 •
Информатика
Написать программу в паскале авс дано четырехзначное число. найти: число, полученное при прочтении его цифр справа налево.
Показать ответ
Ответ:
ivanychboss
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 оценок)
Популярные вопросы: Информатика
ГлупыйКотэ
12.08.2020 13:47
Запишите основную задачу 3D моделирования...
vikasivak02p08wjc
05.03.2021 09:01
Трехмерные объекты имеют события. Перечислите их...
denglushakov1
12.08.2020 13:47
Чему будет равно данное выражение: (1^0)& (0v0)=?...
semabulov
19.06.2022 04:11
Что необходимо установить для правильной работы принтера...
Малия172
23.02.2020 05:20
1. Екі санның көбейтіндісін есептейтін программа құрың дар.2. Екі таңбалы немесе одан да көп таңбалы екі санның қо-сындысын есептейтін программа құрыңдар....
иван1208
11.09.2022 08:35
Написать программу: 1.В компьютер вводятся два произвольных положительных числа - длины сторон двух кубиков. Компьютер должен подсчитать объем одного кубика - большего...
ксения282006
11.02.2020 06:23
Дз: составить 5 программы для цикла for, и пишите ещё ответы то есть что выйдет на экран после выполнения программ....
sasha17210
19.07.2021 10:47
ПИТОООН! Напишите комментарий к коду: print( Hello, + input() + ! )...
Nina34732
20.03.2022 03:46
ПИТОН! Напишите комментарии к коду: n = int(input()) k = int(input()) print(k // n) print(k % n)...
QueenBee2403
01.08.2021 20:43
Напишите программу(На языке Паскаль), которая для произвольного четырехзначного натурального числа N(1234) вычисляет: А)Произведение первой и последней цифры числа...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.