Сделаем небольшие преобразования.
Теперь можно писать программу. Проведенное преобразование позволяет вычислить 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
Механический мальчик-неудачник
1. Маркированные списки оформляются с помощью маркеров. Они могут быть разной формы. Нумерованные списки оформляются при помощи арабских или римских цифр.
2. Если работаете в Microsoft Office, то в меню Главная есть 2 кнопки (нумерованный список и маркированный)
3. Ввод завершается двойным нажатием клавиши Enter