Tất cả chương trình mình đều đã chạy thử:

Câu 1:

Hình 1;

Câu 2:

Hình 2;

Câu 3:

Hình 3;

Câu 4:

Hình 4;

CÂU1

var i,n: integer;

s:longint;

begin

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+i; i:=i+1;

end;

write('tong cua',n,' so tu nhien dau tien la',s);

readln

end.

CÂU2

program tong;

uses crt;

var n,i: integer;

      s: longint;

begin clrscr;

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

       s:=0;

     for i:=1 to n do

       s:=s+i;

   write('Tong la: ',s);

readln;

end.

CÂU3

program Tinh_hieu;

var n,i: integer;

S: longint;

begin

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

S:=0;

for i:=1 to n do S:=S-i;

writeln('Hieu cua ',n,' so tu nhien dau tien S=', S);

readln

end.

CÂU4

Bước 1: Nhập n và nhập dãy số

Bước 2: tb←0; i←1;

Bước 3: tb←tb+x[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4

Bước 6: Xuất tb/n;

Bước 7: Kết thúc