Question

program Tinh_tong;

uses crt;

var i, n, s: integer;

begin clrscr;

writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');

write('Nhap so n: ');read(n); s:=0;

for i := 1 to n do s := s + i;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln;

readln;

end.

* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while

Answer 1

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

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

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

Answer 2

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.