Viết chương trình tính tổng A= 1+1/9+...+1/n^3. Giúp e với ạ

Question

aihong · Answer

program phuongt;

uses crt;

var n, i: interger;

a: real;

begin

clrscr;

write(‘Nhap n = ‘); readln(n);

a:=0;

for i:=3 to n do a:=a+1/i*i;

write(‘Tong A = ‘, a+1);

readln

end.

quynhnghi · Answer

program hldph;

uses crt;

var s,i,n:longint;

begin

write(‘N= ‘);

readln(n);

s:=0;

for i:=1 to n do if i mod 2=1 then s:=s+1/i;

write(‘s= ‘,s);

readln

end.

chúc bạn mạnh khỏe, có nhiều may mắn và học giỏi

cho mình hay nhất nhé mình cảm ơn bạn nhiều ❤️️❤️️❤️️

Viết chương trình tính tổng A= 1+1/9+…+1/n^3. Giúp e với ạ