Var A:Array[1..100] of Integer;
F:Boolean;
C,N:Integer;
Function Prostoe(N:Integer):Boolean;
Var I:Integer;
B:Boolean;
Begin
B:=True;
For I:=2 to N-1 do
If N mod I = 0 Then B:=False;
Prostoe:=B;
End;
Procedure Find(N:Integer);
Var I:Integer;
Begin
For I:=2 To N do
If (N mod I = 0) and Prostoe(I) Then
Begin
Inc(C);
A[C]:=I;
If N div I = 1 Then
F:=True;
Find(N div I);
If F Then Exit;
End;
End;
begin
C:=0;
ReadLn(N);
Find(N);
N:=0;
Repeat
Inc(N);
WriteLn(A[N]:4);
Until A[N+1] = 0;
ReadLn;
end.
Похожие записи/страницы:
- Проверить, является ли заданное натуральное число n > 1 простым - Pascal(Паскаль)
- Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются…
- Проверить, есть ли в заданной целочисленной последовательности a1 , a2 , ..., aN элементы, равные нулю. Если…
- Для матрицы А (4 строки;5 столбцов) вывести те строки, в которых есть нулевые элементы или вывести сообщение…
- В каждой строке матрицы A(N, N) определите наибольшее простое число. Если в строке нет простых чисел, выдайте…
- Составить программу, которая формирует список, добавляет в него произвольное количество компонент, выполняет…
- Составить программу генерации последовательности простых чисел, не превышающих заданного числа N. Простым числом…
- В файле дана запись (корректная) арифметического выражения, содержащая скобки, +, -, *, /, односимвольные имена…