Регистрация
санеке
22.04.2023 18:57
Информатика
Есть ответ 👍

Turbo pascal даны действительное число а, натуральное число n. вычислить: s = 1/a + 1/a^2 + 1/a^4 + … + 1/a^2n-2

216
434
Посмотреть ответы 2

Ответы на вопрос:

Jinx2002
Jinx2002
4,7(3 оценок)
Как в : var a,an,s: real; n,i: integer; begin write('a = '); readln(a); write('n = '); readln(n); s: =1/a; an: =1; for i: =2 to n do   begin   an: =an*a*a;   s: =s+1/an;   end; writeln('s = ',s); end. пример: a = 2 n = 4 s = 0.828125
карина2155
карина2155
4,5(48 оценок)
Var a,t: integer; begin t: =0; a: =1; while a< 200 do   begin a: = a*2; t: =t+3 ; end; write (t); end.

Популярно: Информатика