Для того чтобы проверить, как ее ученики умеют считать, Мария Ивановна каждый год задает им на дом одну и ту же – «Для заданного натурального A найти минимальное натуральное N такое, что N в степени N (N, умноженное на себя N раз) делится на A». Из года в год и от ученика к ученику меняется только число A. Вы решили будущим поколениям. Для этого вам необходимо написать программу, решающую эту Формат входных данных. Во входном файле содержится единственное число A (1 A 109). Формат выходных данных. В выходной файл вывести единственное число N. Примеры.
input.txt output.txt 8 4 13 13
Имя входного файла input.txt. Имя входного файла output.txt. Максимальное время работы на одном тесте – 2 сек. Максимальное время работы на одном тесте – 2 сек. Максимальный объем используемой памяти 32 мегабайта
Ответы
program jopascal;
var
i, a: longint;
x,
u, j,
n, m : longint;
function fdiv (a, left : longint) : longint;
var
d,
i : longint;
begin
d : = 1;
for i : = left to trunc (sqrt (a)) do
if (a mod i = 0)
then
begin
d : = i;
break;
end;
if (d < > 1)
then
fdiv : = d
else
fdiv : = a;
end;
function g (n, u : longint) : longint;
var
i : longint;
begin
i : = 0;
while (n mod u = 0)
do
begin
inc (i);
n : = n div u;
end;
g : = i;
end;
begin
assign (input, 'input.txt');
assign (output, 'output.txt');
reset (input);
read (a);
close (input);
m : = 0;
n : = 1;
i : = fdiv (a, 2);
u : = 2;
while (a > 1)
do
begin
n : = n * i;
j : = 0;
while (a mod i = 0)
do
begin
inc (j);
a : = a div i;
end;
if (j > m)
then
begin
m : = j;
u : = i;
end;
i : = fdiv (a, i + 2);
end;
x : = 1;
while (g (n * x, u) * n * x < m)
do
inc (x);
n : = n * x;
rewrite (output);
write (n);
close (output);
end.
PowerPoint тоже для презентацийProgram pr_1;a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;
else a[i] := i;
end;
writeln(a);
end.
Ну, что-то я тут ничего не пойму!
Другие вопросы по информатике
