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

Повідомлення про одну функцію(інформатика)

Показать ответ
Ответ:
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 оценок)
Ответ:
Алино4ка15
Алино4ка15
20.08.2022 07:17

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

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

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

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

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

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

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

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