Question

Viết chương trình Pascal tính

s=1 + 1/2^2 + 1/3^2 + ... + 1/n^2

Answer 1

Lời giải:

program hotrotinhoc ;

var s: real ;

i,n : integer ;

begin

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

for i:= 1 to n do

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

write('s=',s);

readln

end.

Answer 2

uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
s:real;
begin
clrscr;
s:=1;
write('Nhap n la ');readln(n);
for i:=2 to n do
s:=s+(1/(i*i));
write('Tong la ',s:0:2);
readln
end.

uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
s:real;
begin
clrscr;
s:=1;
write('Nhap n la ');readln(n);
for i:=2 to n do
s:=s+(1/(i*i));
write('Tong la ',s:0:2);
readln
end.

Answer 3

uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
clrscr;
s:=1;
for i:=1 to n do s:=s+1/(n*n);
write('s=',s:3:2);
readln;
end.