(Інформатика 6клас)Программное опрацювання подій
Ответы
// 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Надо, ! использовать алгоритм сместиться на вектор.
Автор: mirdetzhuk79
Составьте программу вычисления кинетической энергии.
Автор: armusaeff
Найдите ошибку. for i: =2 to n do begin встречено for, а ожидалось ;
Автор: molchanovaelena284
В каких сферах деятельности используются суперкомпьютер Ломоносов?
Автор: optima3559
Напишите в каком году в сша начала функционировать первая в мире компьютерная сеть
Автор: ostapbender1111
Составить програму на паскале. дано натуральное число, приписать к нему такое же число!
Автор: Владимирович_Намик59
Подскажите , перепробовала уже все формулы из инэта
Автор: aregaa
Составьте блок-схему к следующей : нужна
Автор: phmad7
// 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.