tại vì nó kh cần internet

1: tính tổng của \(S=1+\frac{1}{2^2}+\frac{1}{3^2}+\frac{1}{4^2}+...+\frac{1}{100^2}\)

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do

s:=s+1/(sqr(i));

writeln('tong cua day so la: ',s);

readln;

end.

2: tính tổng \(S=1+\frac{1}{3^2}+\frac{1}{5^2}+\frac{1}{7^2}+...+\frac{1}{n^2}\)

uses crt;

var s:real;

n,i:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

if i mod 2=1 then s:=s+1/(sqr(i));

writeln('tong cua day so la: ',s:4:2);

readln;

end.

Nguồn mở miễn phí nhưng không được chọn nhiều bằng nguồn đóng vì vấn đề tương thích, hỗ trợ, thói quen sử dụng, thương hiệu.

chắc là cô bận nên không biết nếu bạn muốn đổi tên thì bạn có thể chat rieng cho cô và tham gia vào lớp đổi tên của cô r đưa tên mà bạn muốn đổi nhé

bạn vào lại phần lớp học đi xem bạn vào lớp thành công hay chưa nhé !

Program hotrotinhoc;

var a,b,d,c : integer;

begin

d:=0;

for a:=1 to 9 do

for b:= 0 to 9 do

for c:=0 to 9 do

if (a*100)+(b*10)+c = (a*a*a)+(b*b*b)+(c*c*c) then

begin

writeln(a,' ',b,' ',c);

inc(d);

end;

if d=0 then write('0');

readln

end.

\(\dfrac{14}{7}hay\dfrac{17}{7}?\)

\(\dfrac{14}{7}\)

program an_danh;
uses crt;
var kq:real;
i:integer;
begin
clrscr;
kq:= 1;
for i:= 1 to 99 do kq:= kq + (i / (i * (i + 1)));
write('M= ',kq:0:10);
readln
end.

program an_danh;
uses crt;
var kq:real;
i:integer;
begin
clrscr;
kq:= 1;
for i:= 1 to 99 do kq:= kq + (i / (i * (i + 1)));
write('M= ',kq:0:10);
readln
end.

uses crt;
var n,a,b,q:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
for b:=a to n do
if trunc(sqrt(sqr(a)+sqr(b)))=sqrt(sqr(a)+sqr(b)) then writeln(a,' ',b);
readln;
end.

Lĩnh vực của em thuộc bên môn Hoá, với lại e chưa học tới lớp 11 đâu :) Anh/Chị nhờ cô Nguyễn Minh Lệ nha

cảm ơn bạn