Программа должна обеспечивать вывод соответствующих входных данных в двоичной системе счисления для демонстрации работы программы. (Пример ответа выше на фото) Само задание: Даны два символа ch1 и ch2(в кодировке Unicode). Получить целое число, два старших байта которого представляет собой код ch1, а два младших байта - код ch2. Среда: Pascal ABC.NET
1. Электронная почта - это "интернет-портал", с которого предоставляется возможность отправлять письма в электронном виде.
2. Заголовок сервера, тело письма
3. На сервере, где была произведена регистрация
4. Он состоит из имени пользователя, под которым он зарегистрирован на сервере электронной почты. И адреса, разделенных собачкой.
5. В чень сильно устаревших учебниках под телеконференциями понимают организованный тематический обмен сообщениями между пользователями сети. Сейчас это чаще называют форумами.
6. Чтобы стать участником форума, надо зайти на сайт форума, если требуется, зарегистрироваться, и общаться.
7. Архивация (сжатие) файла либо нескольких файлов производиться с целью уменьшения места, занимаемого ими на диске.
1. Электронная почта - это "интернет-портал", с которого предоставляется возможность отправлять письма в электронном виде.
2. Заголовок сервера, тело письма
3. На сервере, где была произведена регистрация
4. Он состоит из имени пользователя, под которым он зарегистрирован на сервере электронной почты. И адреса, разделенных собачкой.
5. В чень сильно устаревших учебниках под телеконференциями понимают организованный тематический обмен сообщениями между пользователями сети. Сейчас это чаще называют форумами.
6. Чтобы стать участником форума, надо зайти на сайт форума, если требуется, зарегистрироваться, и общаться.
7. Архивация (сжатие) файла либо нескольких файлов производиться с целью уменьшения места, занимаемого ими на диске.
// 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