//прога на Pascal`e
var
n: uint64;
x : int64;
//
function f (a, p:int64):int64;
var i, sum: int64;
begin
sum:=1;
for i:=1 to p do
sum:=sum*(a-i);
f:=sum;
end;
//
begin
readln (x, n);
write (f(x, n));
end.
Ну мне кажется иут ответ 2
Интернет по сути своей не представляет опасности для подрастающего поколения. Вредоносное влияние оказывают многочисленные сайты и всплывающие окна рекламного характера. Помимо образовательной роли виртуальная реальность таит и множество негативных моментов, в особенности для детей. Это может быть:
незаконный контент: «взрослая» реклама табака, алкоголя, секса, азартные игры, порнография;платные сервисы и услуги, которые оплачиваются отдельно;призывы к асоциальному поведению, насилию и жестокости;пропаганда сексуальной эксплуатации и суицидального поведения;общение на форумах и чатах с мошенниками, аферистами и преступниками под личиной доброжелателей;вынуждение предоставления личной информации ребенка или его семьи, которая может быть использована в преступных целях;Интернет-зависимость.
Var
max, //максимальный элемент
min, //минимальный элемент
sum, //сумма всех чисел
n, //количество чисел
j: integer;
Begin
write('Введите количество чисел: ');
readln(n);
write('Введите числа: ');
readln(j);
max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно
for var i:=2 to n do begin
readln(j);
if(j > max) then max:=j
else if(j < min) then min:=j;
sum:= sum+j;
end;
sum:= round(sum/n)*min-max; //результирующая формула
if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0
else writeln('Результат: ', sum);
End.
100 Кбайт.Ответ: 2. 16х64х50х8,полученное число раздели на 1024.