Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
mymi10
14.08.2022 03:38 •
Информатика
Ввести любое 3-х значное число,а вывести его в обратном порядке.паскаль. )
Показать ответ
Ответ:
мария2081
02.07.2020 23:52
Var a:integer;
begin
readln(a);
while a<>0 do begin
write(a mod 10);
a:=a div 10;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kovalenko7659
03.10.2021 21:50
Переведите числа из 2 системы счисления в 10-ную. 1001110 2= 1001010 2=...
апепе1
16.04.2021 20:19
Скорость передачи данных через adsl-соединение 128000 бит/с. определите наибольший размер файла, который может быть передан через данное соединение за 7 минут....
vladmakarchuk80
04.04.2022 03:37
Запишите число в развернутой форме: 436{8}...
ролимов
13.03.2023 19:02
Написать подпрограмму, которая все слова вида + заменит на результат операции. например: строка undg 45+2 jf 100+1 должна быть преобразована в строку undg 47 jf...
сич23
04.02.2022 07:23
Системы счисления 9класс 16а 16ричной перевести в 10ричную с пояснением и решением...
софия730
14.10.2022 14:43
Рефкрат о том какое чувство является самым развитым у дельфина?...
cutyboylovep07y0r
26.09.2021 18:01
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. программа получает на вход количество чисел в последовательности,...
GGNOOB777
25.07.2020 03:15
Вкаком из перечисленных предложений правильно расставлены пробелы между словами и знаками препинания? имеем — не храним , потеряем — плачем. имеем — не храним,...
joker2284
27.01.2022 03:44
Какой драйвер загружается первым когда запускается ms-dos ? which driver is loaded first when loading ms-dos ?...
Gtfdgrrgd
28.03.2023 14:13
Решите в двоичной системе 11101-1111= 110,10110: 111=...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
while a<>0 do begin
write(a mod 10);
a:=a div 10;
end;
end.