Всоциальной сети "друзьяшки" есть публиковать записи, делать репост (размещать чужую запись на своей странице) и ставить лайки. в "друзьяшках" каждый репост считается отдельной записью и его, в свою очередь, могут репостить другие пользователи. вася опубликовал популярную запись, которая широко разошлась по соцсети. пользователи соцсети могут ставить лайк к записи, при этом если запись является репостом, то этот лайк отображается не только у того пользователя, которому он был поставлен, но и у пользователя, с чьей страницы был сделан репост и так далее до самой исходной записи. например, если пользователь а опубликовал запись, репост которой сделали пользователи б и в, а пользователь г сделал репост записи пользователя б, то лайк, поставленной записи пользователя г, будет отображен у пользователей г, б и а (но не в пете понравился пост васи. к сожалению, в "друзьяшках" можно ставить только один лайк в день, зато этот лайк отображается во всех записях, которые, находятся выше по дереву лайков. поэтому петя хочет поставить свой единственный лайк так, чтобы он был отображен у как можно большего количества пользователей. ему выбрать запись, которой нужно поставить такой лайк. напишите программу на паскале

Const Sz = 1000; var   a: array [1..Sz] of integer;  b: array [1..Sz] of integer;  c: array [1..Sz] of integer;  d: array [1..Sz] of integer;  M: integer;  N: integer;  i: integer;  k: integer;begin  read(M);  readln(N);  for i:=1 to N do begin    read(a[i]);    readln(b[i]);    if (a[i]<>0) then c[i]:=1 else c[i]:=0;    end;  for i:=1 to N do begin  if(c[i]<>0) then begin  for k:=1 to i do begin  if(d[k]=0) then d[i]:=1;  if (c[k]=i) then d[k]:=0;   end;   writeln(d[i])  end;end;end.

Объяснение:

При работе на персональном компьютере довольно часто возникает необходимость уменьшить размер файла с целью экономии места на диске. Например, требуется перенести файлы с одного компьютера на другой на дискетах. Или нужно переслать большой файл по электронной почте - уменьшив его размер, можно сэкономить и время и деньги. Лучшее решение в таких случаях - создать так называемый архивный файл, или, проще говоря, архив. Это единый файл, в который для компактного хранения информации помещены в сжатом виде один или несколько исходных файлов.

Для работы с архивами предназначены специальные программы, которые называются архиваторами. С архиваторов можно упаковывать файлы в архивы и распаковывать их, а также просматривать содержимое архивов. Упаковка файлов в архив называется архивированием или архивацией, а их извлечение - разархивированием.

Существуют разные форматы архивов: ZIP, ARJ, RAR, CAB, TAR, LZH и др. Когда создается архивный файл, ему присваивается расширение, совпадающее с форматом архива. Например, файл с именем MyDoc.zip - это архив формата ZIP. Формат влияет на эффективность сжатия файлов; к примеру, архив формата RAR занимает на диске меньше места, чем архив формата ZIP, содержащий те же самые исходные файлы. Кроме того, эффективность зависит от типа файлов, упаковываемых в архив. Файлы картинок, имеющие расширение BMP, документы Microsoft Word удается сжать в два-четыре раза, текстовые файлы - приблизительно в два раза. Несколько хуже подвержены сжатию исполняемые файлы (с расширением EXE), а графические файлы, имеющие расширение TIF, практически не сжимаются.

Эту задачу очень легко решить при логарифмов. Если при делении логарифма числа на логарифм пяти получится целое число, то искомое есть степень пятерки, а результат деления и есть показатель степени.

На примере: lg(125) / lg(5) = 3.  Так как 5³ = 125
lg(812) / lg(5) ≈ 4.16 поэтому 812 не явл. степенью 5-ки.

print "Введите число"
input A
S = log(A) / log(5)
if S = int(S) then
   print "Число ";А; "является степенью числа 5"
   print "Показатель степени "; S
else
   print "Число ";А; "не является степенью числа 5"
end if
end