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

Программа должна обеспечивать вывод соответствующих входных данных в двоичной системе счисления для демонстрации работы программы. (Пример ответа выше на фото)
Само задание:
Даны два символа ch1 и ch2(в кодировке Unicode). Получить целое число, два старших байта которого представляет собой код ch1, а два младших байта - код ch2.
Среда: Pascal ABC.NET​


Программа должна обеспечивать вывод соответствующих входных данных в двоичной системе счис

Показать ответ
Ответ:
Алино4ка15
Алино4ка15
20.08.2022 07:17

1. Электронная почта - это "интернет-портал", с которого предоставляется возможность отправлять письма в электронном виде.

2. Заголовок сервера, тело письма

3. На сервере, где была произведена регистрация

4. Он состоит из имени пользователя, под которым он зарегистрирован на сервере электронной почты. И адреса, разделенных собачкой.

5. В чень сильно устаревших учебниках под телеконференциями понимают организованный тематический обмен сообщениями между пользователями сети. Сейчас это чаще называют форумами.

6. Чтобы стать участником форума, надо зайти на сайт форума, если требуется, зарегистрироваться, и общаться.

7. Архивация (сжатие) файла либо нескольких файлов производиться с целью уменьшения места, занимаемого ими на диске.

0,0(0 оценок)
Ответ:
turkeev90
turkeev90
31.10.2021 00:09

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (n, i) := (ReadInteger('N ='), 9);

 var st := new Stack<integer>;

 if n = 1 then st.Push(1)

 else

 if n <= 0 then

 begin

   Println('Требуется натуральное число');

   Exit

 end;

 while (i > 1) and (n <> 1) do

   if n mod i = 0 then

   begin

     st.Push(i);

     n := n div i

   end

   else i -= 1;

 Print('M =');

 if n > 1 then Print('0')

 else st.Println('')

end.


Пример

N = 420

M = 2567

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота