В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
nadyam1982
nadyam1982
02.02.2020 02:17 •  Информатика

Proc6. Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной,
C и S — выходные параметры целого типа). С этой процедуры
найти количество и сумму цифр для каждого из пяти данных целых чисел.
с полным объяснением

Показать ответ
Ответ:
DPAKOSHKA
DPAKOSHKA
06.12.2020 00:53
Ну, для начала можно составить табличку. 
Десят. - Восьм. - Шестн
0-000-0000
1-001-0001
2-010-0010
3-011-0011
4-100-0100
5-101-0101
6-110-0110
7-111-0111
Далее, в восьмеричной максимальное число 7, поэтому буду сразу писать шестн.
8-1000
9-1001
A-1010
B-1011
C-1100
D-1101
E-1110
F-1111
Итак, когда у нас есть двоичное значение каждых чисел, выполняем перевод:
726_{8}=111010110_{2}
Теперь справа налево, выделяем по 4 цифры, и смотрим в таблицу :
0110 - 6
1101 - D
0001 - 1 ;
У нас получилось так :
726_{8}=111010110_{2}=1D6_{16}
Вроде, понятно объяснил :)
0,0(0 оценок)
Ответ:
akikoaki
akikoaki
01.05.2021 17:52
1. Система программирования — это система для разработки новых программ на конкретном языке программирования.
2.Системные программы выполняются вместе с прикладными и служат для управления ресурсами компьютера — центральным процессором, памятью, вводом-выводом.Это программы общего пользования, которые предназначены для всех пользователей компьютера. Системное программное обеспечение разрабатывается так, чтобы компьютер мог эффективно выполнять прикладные программы.
3.Программа на Паскале  
Program Summa;  
  Type Mas = Array [1 .. 100] of Real; 
  Var A   : Mas; 
          i, n: Integer; 
          S   : Real; 
BEGIN 
    Write('n = ');   ReadLn(n); 
    For  i : = 1 to n do 
        begin 
          Write('A[', i, '] = '); 
          ReadLn(A[i]); 
        end; 

    S : = 0; 
    For  i : = 1 to n do 
          S : = S + A[i]; 
    WriteLn('S = ', S:8:2); 
END.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота