Viết chương trình tính tổng S:=1/1+1/2+1/3+...+1/n Viết chương trình tìm tổng bình phương các số từ 1 đến 100 Giúp vs ặ cần gấp ặ hứa vote 5 shao và tlhn ặ

1 câu trả lời

Viết bằng Pascal

Chương trình tính tổng:

uses crt;

var i,n: longint;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

write ('Tong la: ',s);

readln;

end.

Chương trình tìm tổng bình phương các số từ 1 đến 100:

uses crt;

var i,s: longint;

begin

clrscr;

s:=0;

for i:=1 to 100 do

s:=s+i*i;

write ('Tong la: ',s);

readln;

end.