Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Мадинакадырова06
28.01.2020 02:39 •
Информатика
Требуется написать программу для перевода целых чисел из восьмеричной системы счисления в десятичную.
Показать ответ
Ответ:
Ailina24
03.10.2020 01:59
Var o,d,k,l: integer;
begin
read(o);
d := 0;
k := 1;
l := 1;
while l <= o do
begin
d := d + k*(o div l mod 10);
l := l * 10;
k := k * 8
end;
writeln(d)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
3458
26.11.2022 05:04
К какому семейству программ относится...
coolflex
08.11.2021 21:03
решить информатику . Задание Алгебра логики...
bemasmile2004
09.04.2023 19:30
Какие инструменты были использованы для создания данного рисунка...
kisaev16
20.05.2023 09:04
Какое количество уровней звукового сигнала кодируется в устаревших 8-битных звуковых картах...
максим1718
12.06.2022 21:11
Заполните массив r из 6 элементов числами,равными 1/2 порядкового номера. определите разность между суммами его 1-й и 2-й половины...
Aleksandr541
12.06.2022 21:11
Переведите биты в мегабайты: 152 356 бит = ? мб. ответ округлите до двух знаков после запятой, внесите число без наименования....
Suprunenko2007
02.09.2020 13:59
Что такое непрерывный и дискретный сигнал пример...
kisnasty951
02.09.2020 13:59
Расположите величины в порядке возрастания: 256 бит, 1/16 кб, 20 бит, 2 б, 520 бит, 31 б...
bogussasa7
02.09.2020 13:59
Формат фотографии одно любое название...
артур35
02.09.2020 13:59
Элементы матрицы размерностью n×n заданы случайным образом. определить среднее значение каждого столбца....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(o);
d := 0;
k := 1;
l := 1;
while l <= o do
begin
d := d + k*(o div l mod 10);
l := l * 10;
k := k * 8
end;
writeln(d)
end.