Litvin_Ivanov
?>

В языке запросов поискового сервера для обозначения логической операции «ИИ»» используется символ »» ая логической операции «И»» — символ «&».В таблице приведены запросы и количество найденных по ним страницнекоторого сегмента сеи Интернет. Синается, что все запросы выполнялисьпрактически одновременно так го набор страниц, содержащих все искомыеслова, не изменяте я ва время. Выполнения. Запросов.ЗапросНайдено страниц(в тысячах)Матылека & омикиТООМарганелка1600500оларниKBВ!Тысячах )будет найденозапросуNakoe ROBOМартышка Оки"​

Информатика

Ответы

iuv61

// PascalABC.NET 3.6.3

uses School;

function Divizors(n: integer): List<integer>;

begin

 var L := new List<integer>;

 L.Add(1);

 L.Add(n);

 if n > 3 then

   begin

   var k := 2;

   while (k * k <= n) and (k < 46341) do

   begin

     if n mod k = 0 then

     begin

       var t := n div k;

       L.Add(k);

       if k < t then L.Add(t)

       else break

     end;  

     Inc(k)

   end;

   L.Sort;

 end;

 Result := L

end;

begin

 // 1

 if ReadInteger.IsPrime then Println('YES')

 else Println('NO');

 // 2

 ReadInteger.Factorize.First.Println;

 // 3

 var a := Divizors(ReadInteger);

 Print(a.Count, a.Sum)

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

В языке запросов поискового сервера для обозначения логической операции «ИИ»» используется символ »» ая логической операции «И»» — символ «&».В таблице приведены запросы и количество найденных по ним страницнекоторого сегмента сеи Интернет. Синается, что все запросы выполнялисьпрактически одновременно так го набор страниц, содержащих все искомыеслова, не изменяте я ва время. Выполнения. Запросов.ЗапросНайдено страниц(в тысячах)Матылека & омикиТООМарганелка1600500оларниKBВ!Тысячах )будет найденозапросуNakoe ROBOМартышка Оки"​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Марина1101
gabramova
Яковчук1911
Смирнов-Оськина
Некрасов Валентина1097
alexandergulyamov
Vladimirovna1370
Галина-Юлия1292
Александровна
Наталья
Оксана170
omigunova39
myhauz
antrotip
lenapopovich556510