Viết chương trình tính tổng A= 1+1/9+…+1/n^3. Giúp e với ạ 22/07/2021 Bởi Kinsley Viết chương trình tính tổng A= 1+1/9+…+1/n^3. Giúp e với ạ
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 ❤️️❤️️❤️️ Bình luận
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. Bình luận
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 ❤️️❤️️❤️️
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.