Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
the26
12.04.2020 15:37 •
Информатика
Программа перевода из 10 сс в 16 сс на паскале. (как можно проще, используя функции, заранее .
Показать ответ
Ответ:
dasha685331
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 оценок)
Популярные вопросы: Информатика
makoldinvyacheoxyw3a
08.02.2022 01:58
Каким образом можно узнать свойства объекта или выполнить действие с ним? побыстрее и хотелось бы правильный ответ .....
ХорошийВася
09.09.2021 22:34
Почему ошибочно считать, что чем длиннее сообщение тем больше информации оно содержит?...
qidanabala
07.10.2020 04:22
Как в гейм лого нарисовать цветок из кругов? ! ! !...
annamoz2004
07.09.2022 20:11
По информатике 3 класс сор. 1.2.3....
dimamc99
26.03.2022 09:05
Дан массив вещественных чисел d[17]. определить произведение отрицательных элементов массива, поменять местами пятый и 10 элементы, вывести измененный массив. паскаль....
vikapuzya200
09.05.2020 09:38
Вкажіть речення з одноридними членами речення А) а там і ліс,і гай,і поле,і сині гори за Дніпром.Б)Стояли стоги торіщнього порубілого сінаВ)вже їдуть великі вантажні...
Anastasia9311
13.08.2021 23:13
яку роль відігравала антична спадщина у творах класицистів???...
мамадочп4а
29.10.2020 03:03
Аманд и Пьер познакомились на международном турнире городов по математике в Москве Аманд живёт в столице Бразилии, а Пьер- в столице Франции. Подростки общаются черезИнтернет,...
olegxkl
19.02.2021 19:16
Нарисуй рисунок, к которому можно записать все три выражения. Объясни, что обозначает каждое число в выражении. 4 · 2 8 : 2 8 : 4 ❤...
MelliLisska
28.11.2020 19:41
3 3 *** Answer the questions. Write completesentences.What does The Rainforest Foundation UKcampaign for?It campaigns for the preservation of the world srainforests...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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