beelan3
20.01.2023 23:05

Синформатикой 1)tur=10; m=85; if tur< 10; m=m+tur; print(m) 2) dat=2; m=0; if dat > 3; m=m+1; print(m) 3) dat=771; m=771; if dat[k] > =m then; begin, m: =dat; end; writeln(m)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
БатонБагетович
13.06.2020 07:09

Для самостоятельного создания сервера Minecraft вам потребуется его скачать и настроить. Обычно используют одно из данных ядер сервера: Vanilla, Bukkit, Spigot или Cauldron. У каждого из них есть свои плюсы и минусы, в зависимости от ваших потребностей вам предстоит выбрать одно из них. Сначала скачиваете сам сервер, в отдельно созданную для него папку. Запускаете его с в вашей папке появится файл eula.txt, открываете его и меняете значение false на true. Сново запускаем сервер и видим, что в вашей папке появилось много файлов и файл с миром, значит сервер работает. Запускаете игру, добавляете свой сервер, он находится по адресу 127.0.0.1 все готово.

0,0(0 оценок)
Ответ:
sfkcstjvc
16.12.2021 09:30

// 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.

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