Question

Написать программу вычисления суммы или произведения числовой последовательности S=1/9*1/18*1/27*1/36

Answer 1

var

 n,i:integer;

 s:real;

begin

 writeln('Вычислить:');

 writeln('1 - сумму');

 writeln('2 - произведение');

 readln(n);

 case n of

   2: begin

       write('Введите максимальный знаменатель: '); readln(n);

       s:=1; i:=9;

       write('Произведение S: ');

       while i<=n do

         begin

           s:=s*1/i;

           write('1/',i);

           i:=i+9;

           if i<=n then write('*');

         end;

       writeln;

      writeln('s: ',s);

     end;

  1: begin  

       write('Введите максимальный знаменатель: '); readln(n);

       s:=0; i:=9;

       write('Произведение S: ');

       while i<=n do

         begin

           s:=s+1/i;

           write('1/',i);

           i:=i+9;

           if i<=n then write('+');

         end;

       writeln;

       writeln('s: ',s);

     end

 else exit;

 end;

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!