viết chương trình giúp mình với ạ!
Bài 1: viết chương trình tính tổng của N số tự nhiên. Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp for..to…do.
Bài 2: Viết chương trình tính tổng của N số tự nhiên. Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp While…do.
Bài 3: Viết chương trình tính tổng của S=1/1+1/2+1/3+…+1/N. Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp for…to..do.
Bài 4: Viết chương trình tính tổng của S=1/1+1/2+1/3+…+1/N Với số N đc nhập từ bàn phím. Viết bằng lệnh lặp While…do.
Bai 1
var n,i,s,a:integer;
begin
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do begin
write(‘Nhap so thu ‘,i,’: ‘);readln(a);
s:=s+a;
end;
writeln(‘Tong=’,s);
readln
end.
Bai 2
var n,i,s,a:integer;
begin
write(‘Nhap n: ‘);readln(n);
i:=1;
while i<=n do begin
write(‘Nhap so thu ‘,i,’: ‘);readln(a);
s:=s+a;
i:=i+1;
end;
writeln(‘Tong=’,s);
readln
end.
Bai 3
var n,i,s:integer;
begin
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do s:=s+1/i;
writeln(‘Tong=’,s);
readln
end.
Bai 4
var n,i,s:integer;
begin
write(‘Nhap n: ‘);readln(n);
i:=1;
while i<=n do begin
s:=s+1/i;
i:=i+1;
end;
writeln(‘Tong=’,s);
readln
end.