1.Мультимедиа — это собирательное понятие для различных компьютерных технологий, при которых используется несколько информационных сред, таких, как графика, текст, видео, фотография, движущиеся образы (анимация), звуковые эффекты, высококачественное звуковое сопровождение. 3.аблица является оптимальной формой организации данных, связанных с вычислениями. Ведь и в рукописном варианте числовые данные чаще всего формируют в виде таблицы. Даже знакомая нам с начальной школы таблица умножения на обложке тетради оформлена таблицей, правда, без обрамления. В ней четко выдержано расположение друг под другом множителей знаков умножения и значений произведений (результатов вычислений). Кроме того, в каждом столбце числа выровнены по разрядам: единицы под единицами, десятки под десятками. Среди данных, которые можно использовать в электронной таблице, можно выделить: * влияющие данные (числа, от которых зависит результат вычислений) * зависимые данные (столбец результатов арифметических операций над влияющими данными) * текстовые данные, не участвуют в реальном вычислительном процессе, а носят чисто оформительский характер В работе с электронными таблицами можно выделить три основных типа данных: число, текст и формула. В зависимости от решаемой задачи возникает необходимость применять различные форматы представления данных. Первые два типа данных (число и текст) считаются константами (постоянными величинами), то есть представляют собой информацию, которая не изменяется без вашего участия.
program ;
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.