Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kotsdanil778
02.10.2021 14:26 •
Информатика
Программа на паскале. составить программу превода натурального числа n из 10 системы счисления в 8 систему счисления через рекурсию. что число натуральное, проверять не надо. если что то не понятно, спрашивайте)
Показать ответ
Ответ:
Soffa6110
04.10.2020 12:57
PascalABC.NET 3.2
function TranslateFrom10To8(n: integer): string;
begin
if n = 0 then
result := ''
else
result := TranslateFrom10To8(n div 8) + IntToStr(n mod 8);
end;
begin
var N := ReadInteger();
print(TranslateFrom10To8(N));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
cofiabogachova
04.11.2022 07:18
У Тимура есть flash-память объемом 8 Гб. Сколько книг может хранить Тимур на flash-память (каждая книга состоит из 300 страниц, на каждой странице 40 строк по 50 символов...
lisovasvitlana15
27.02.2023 17:36
Почему в информатике используются приставки кило мега и т.д....
mikhaillukashc
29.01.2020 08:01
Виды компьюторной памяти, ее носители...
вика45890
29.01.2020 08:01
7класс из каких разделов состоит программа на языке pascal...
Madinauakhitova
29.01.2020 08:01
Составить программу: дан массив из 40, из него составить два массива, первый с четными положительными числами, а второй с остальными. рандом (-1000..1000) в паскале...
25000h
19.12.2021 00:35
Які імена мають носії даних у комп ютері...
Alex71532
17.11.2020 08:55
Кодирование текста осуществляется перестановкой букв в каждом слове по одному и тому же правилу. восстановите кодированую информацию и сформулируйте правила перестановки....
лена062
17.11.2020 08:55
Информатика 4 класс часть 2 стр 42 рудченко...
Natalia10000
26.11.2022 02:44
Племя мульти пишет письма, пользуясь 17-символьным алфавитом. племя пульти пользуется 32-символьным алфавитом. вожди племен обменялись письмами. письмоплемени мульти содержало...
Игорь2285
26.11.2022 02:44
Сколько кбайт информации содержит файл объемом 2^15 бит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function TranslateFrom10To8(n: integer): string;
begin
if n = 0 then
result := ''
else
result := TranslateFrom10To8(n div 8) + IntToStr(n mod 8);
end;
begin
var N := ReadInteger();
print(TranslateFrom10To8(N));
end.