Ответ:
var
n, f: integer;
begin
readln(n)
while n>0:
f*:=n
n-=f-1
end;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var
n, f: integer;
begin
readln(n)
while n>0:
f*:=n
n-=f-1
end;