Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
IvanovaYulia200
29.09.2020 16:03 •
Информатика
Задано целое число. из данного числа сделать число-перевертыш на паскале
Показать ответ
Ответ:
Gelua2128
08.07.2020 21:16
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tata201279
16.10.2022 13:53
ПОЗЯЗЯ :БУДУ БЛОГОДАРНА ♡...
Fredbreyn
17.01.2020 10:45
Какой алгоритм использован в данной программа? а=int(input( a= )) b=int(input( b= )) If a b: max=a else: max=b print(:max= ,max)...
Кологривко
30.05.2021 09:31
Расставьте множества по возрастанию мощности. 1)(L∪M)⋂N 2)M∪( L⋂N) 3)(L∪M)\N 4)(L∪M)\N...
Vftfg
30.05.2021 09:31
Информационный объём цифрового звукового стерео файла длительностью 15 секунд при глубине кодирования 16 бит и частоте дискретизации 10240 Гц равен .....
Миксеры
22.12.2021 09:11
Напишите наибольшее целое число, для которого истинно высказывание: (х 38) ИЛИ НЕ (Х 50)?...
dimabos888
23.04.2023 05:31
Дано: writeln(s:6:2);Если s=112,67403,то на экране появится что? ...
АнальныйЧервь
03.02.2020 21:58
Информационный объём текста, подготовленного с компьютера, равен 17 Мб. 1символ весит 1 байт. Сколько символов содержит этот текст?...
helpmepleasehelp1
02.08.2022 18:43
Какие электронные устройства появились за год?за 5 лет?...
V73663
26.07.2022 04:34
Информатика 6 класс 1:Информатика - наука, изучающая закономерности протекания процессов Передачи, хранения и ...Информации в природе, обществе, технике, а так...
sembaevam
23.07.2021 23:29
Дана блок-схема нахождения периметра прямоугольника заполните пустые блоки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
end.