Ответы на вопрос:
Function reversef(f: integer; var n: integer): boolean; var i,k: integer; p: longint; begin if f=1 then begin reversef: =true; n: =1 end else begin k: =2; repeat p: =1; for i: =2 to k do p: =p*i; if p< f then inc(k) until p> =f; if p=f then begin reversef: =true; n: =k end else begin reversef: =false; n: =-1 end end end;
Популярно: Информатика
-
pozitiv2916.05.2023 06:07
-
Deadcroissant126.04.2023 10:45
-
ilya366666406.10.2020 08:53
-
kanayevasaniya26.06.2023 00:54
-
albgon4arowa2026.03.2020 12:19
-
топ200625.01.2023 09:13
-
errreir31.07.2021 09:05
-
RinOkumura9902.09.2022 03:44
-
ryzik198812.08.2022 05:07
-
alesa1210200604.09.2020 00:59