Viết trương trình tính tổng S=1/2^2+1/2^2+1/3^2 Cứu mình nhanh với ạ
2 câu trả lời
`*` Cách `1` `:`
Program BTT;
Uses crt;
Var i,n: longint;
s: extended;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
s:=s+1/sqr(i);
Write('S = ',s:0:2);
Readln
End.
`*` Cách `2` `:`
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('nhap n: '); readln (n);
for i:=1 to n do
s:=s+(1/(i*i));
writeln ('tong la: ',s:1:2);
readln;
end.
$#Zen$
uses crt;
var i,n:longint;
s:real;
begin
clrscr;
s:=0;
write('Nhap n: '); readln (n);
for i:=1 to n do
s:=s+1/sqr(i);
write('Tong la: ',s:0:3);
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
