Var i,p:integer;
begin
i:=11;
p:=1;
while i<=99 do
begin
p:=p*i;
i:=i+2;
end;
writeln(p)
end.
Код находится в приложении.
Полное имя файла состоит из пути к файлу и имени файла.
А путь к файлу состоит из последовательности каталогов, ведущих к файлу и разделенных между собой символом \
Если я не ошибаюсь, то двоек здесь 1997, т. к если из 10 в степени 2000 вычесть 10 в степени 3, то получиться три нуля и 1997 двоек, а когда прибавляем 10 в степени 2017 количество двоек не увеличивается и не уменьшается
10 - это 3 в троичной системе счисления