Вычисления показаны в прилагаемом файле. Считается, что 2 в примерах - это не степень, а основание системы счисления (двойку принято писать внизу этом случае).
Ответ 14. Т.к. в цикле строгое выражение т.е. он выполнится только 1 раз.
Делаешь цикл от 16 до 10000.
Проверяешь каждое число кратно ли оно 2 (mod, %),
если да, кратно ли 16,31
Сделаем небольшие преобразования.
Теперь можно писать программу. Проведенное преобразование позволяет вычислить S абсолютно точно в виде простой дроби. В ответе можно дать десятичную дробь, но преобразование к ней будет единственной неточной операцией. Кроме того, скорость выполнения целочисленной арифметики многократно превышает скорость работы в арифметике с плавающей точкой.
var
i,s,a:integer;
begin
a:=1; s:=a;
for i:=1 to 8 do begin
a:=3*a; s:=s+a
end;
Writeln('S = ',s,'/',a,' = ',s/a)
end.
Результат
S = 9841/6561 = 1.49992379210486