// Внимание! Если программа не работает, обновите версию!
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
vasilevich-F
10.04.2022
Настольные (desktop) ПК предназначены для горизонтального размещения на офисном рабочем столе, с клавиатурой и мышью, располагаемыми перед ними, и с монитором, помещаемым сверху корпуса. По габаритам такие корпуса в ширину больше, чем в высоту.
Настольные низкого профиля (low-profile desktop). Особая разновидность настольного корпуса уменьшенной высоты, достигаемой применением специальной объединительной платы (backplane), которая вставляется в слот расширения на материнской плате и позволяет монтировать платы расширения горизонтально.
Башни (tower). Корпуса вертикального типа, обычно размещаемые под столом, чтобы сэкономить полезную площадь рабочего места. Минибашни (mini tower) имеют малый размер, а башни среднего размера (mid tower) ростом повыше, но меньше полноразмерного tower. Вертикальные корпуса можно также ставить на стол. Внутри их устройство подобно устройству плоских корпусов. Стоимость изготовления минибашен и башен среднего размера значительно ниже, чем самых больших корпусов (big tower), предназначенных для серверов, т. к. для них требуется меньше материалов. В отличие от своих более высоких родственников, мини-башни не предоставляют изобилие внутреннего пространства для размещения плат расширения или дисководов. Портативные (portable), также называемые ноутбуками (notebook) или лэптопами (laptop). Предназначены освободить пользователя от привязи к одному рабочему месту и предоставить возможность мобильности. В этих компьютерах системный блок, устройство ввода (клавиатура) и вывода (монитор) смонтированы как одно целое в легковесном корпусе, который пользователь может носить с собой. Возможности современных портативных компьютеров ставят их в большинстве случаев в один ряд с настольными системами
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Построить блок-схему! нужно построить блок схему по заданной .
// 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