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

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.

Trả lời