Var
i,o:text;
n,k,res:integer;
b:boolean;
begin
res:=1;
b:=false;
assign(i,fact.in);
assign(o,fact.out);
reset(i);
rewrite(o);
read(i,n);
close(i);
for k:=1to n do
begin r
es:=res*k;
ifres=n then
begin
b:=true;
write(o,YES);
break;
end;
end;
ifb=false then
write(o,NO); close(o);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.