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.

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.

program tinhp;

uses crt;

var x,n,i: integer;

s: real;

begin

clrscr;

write('Nhap n:'); readln(n);

write('Nhap x:'); readln(x);

s:=sqrt(x);

for i:=1 to n do

s:= sqrt (x+s);

writeln('tong s=',s:6:2);

readln;

end.

cảm ơn

sqrt(sqrt(x-6));

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

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

Lời giải :

Đây là một đoạn chương trình , bạn viết thành chương trình hoàn chỉnh là được.

\(\sqrt[n]{x}\) : write(exp((1/n)*ln(x)));

x^y : write(exp(y*ln(x)));

Program hotrotinhoc;

var d,n,i: byte;

a: array[1..100] of byte;

begin

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

d:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if a[i] mod 2=0 then inc(d);

end;

write('Mang vua nhap la :');

for i:=1 to n do write(a[i],' ');

writeln;

write('So phan tu chan la : ',d);

readln

end.