Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
cote18
25.01.2021 15:20 •
Информатика
Программа перевода из 10 сс в 16 сс на паскале. (как можно проще, используя функции, заранее .
Показать ответ
Ответ:
drevnyakd
29.06.2020 12:49
Var
d, n: longint;
h: string;
begin
write('n? ');
readln(n);
repeat
d := n mod 16;
if d < 10 then
h := chr(ord('0') + d) + h
else
h := chr(ord('A') - 10 + d) + h;
n := n div 16;
until n = 0;
writeln(h, 'h');
end
0,0
(0 оценок)
Популярные вопросы: Информатика
ulyanae17
10.02.2023 05:07
с презентацией необходимо продемонстрировать полученные на уроках информатики знания и умения по представлению объектов окружающего мира с словесных описаний таблиц,...
ЛизаМэй
19.07.2021 11:12
Составить программу для вывода на экран своего имени. просто паскаль...
Luxky
07.07.2020 18:20
Написать программу в pascal. напишите функцию выбора меньшего из целых чисел. используйте ее в программе выбора наименьшего из трех чисел....
ррраша
14.05.2023 23:33
2. перепишите предложения. вставьте артикли a, an, the, где это необходимо. переведите предложения на язык. 1) yesterday i saw … new film, but … film wasn`t very interesting....
Andrew228krut
06.10.2020 21:23
Просклоняйте по падежам словосочетание строящаяся галерея только в множественном числе...
sochiru2014
23.10.2022 10:13
Укажите предложение, в котором нет грамматической ошибки. выберите один ответ: a. в одном из городов китая состоялось шествие по случаю семьсот пятидесяти третьей годовщины...
lalalala777
23.08.2021 17:20
1. : найдите ответ в тексте и прочитайте1.) за что и как наказал своего внука алып-манаша родной дед? 2.) как долго добирался алып – манаш к злому хану? 3.) что , по...
valeralera200
23.10.2022 10:13
1. i (see) my boss about a pay rise in two hours. – i (see). that’s why you (wear) a suit and a tie. 2. john (be) a very rude person, you know. – i know. sheila (be)...
Kamilla0707
23.03.2020 21:19
Вставьте пропущенные буквы в эти 2 слова...
илья1967
12.04.2020 04:06
1.написать заявление на пересдачу учебного предмета язык за первый семестр 2019 г.2.написать объяснительную записку не выполнили работу с...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
d, n: longint;
h: string;
begin
write('n? ');
readln(n);
repeat
d := n mod 16;
if d < 10 then
h := chr(ord('0') + d) + h
else
h := chr(ord('A') - 10 + d) + h;
n := n div 16;
until n = 0;
writeln(h, 'h');
end