Question

viết thuật toán ,chương trình tính tổng sau bằng vòng lặp while .... do

bài 1 :S1=1/1*3+1/2*4+1/3*5+......+1/n*(n+2)

(n nhập từ bàn phím)

bài 2 :

S2 =1+1/2+1/4+...+1/n

bài 3

S3 =1*1/3+1/4 +...+1/n

cầu xin mọi người giúp

hạn nộp 26 /3

Answer 1

bài 1

program: Tinh _Tong;

var: i,n:integer;S:real;

begin

writeln('nhap so n=');readln(n);

S:=0;

for i:=1 to N do S:=S+1/i*(i+2);

write('tong can tim la',S:0:2);

readln;

end.

Answer 2

bài 2

program:Tinh_tong_2;

var:i,n:integer;S:real;

begin

writeln('nhap so N=');

readln(n);

S:=0;

for i:=1 to N do S:=S+1/i;

writeln('tong can tim la',);

readln;

end.

(bài được làm bởi người giỏi tin nhất khối 8 trường Phạm Đình Quy.)