Bài 1: Viết chương trình tính các tổng sau: (với n là số tự nhiên được nhập từ bàn phím) a) A = 1 + 2 + 3 + . . . + n c) C = 2 + 4 + 6 + . . . + n (n: số chẵn) e) E = 1 + 3 + 5 + . . . + n (n: số lẻ)

a) program a;

uses crt;

var i,n,tong:integer;

begin

clrscr;

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

tong:=0;

for i:=1 to n do

begin

tong:=tong+i;

i:=i+1;

end;

writeln('tong =',tong);

readln;

end.

c)program c;

uses crt;

var i,n,tong:integer;

begin

clrscr;

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

if n mod 2 = 1 then 

repeat

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

until n mod 2 = 0;

tong:=0;

i:=2;

repeat

tong:=tong+i;

i:=i+2;

until i>n;

writeln('tong =',tong);

readln;

end.

e)program e;

uses crt;

var i,n,tong:integer;

begin

clrscr;

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

if n mod 2 = 0 then 

repeat

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

until n mod 2 = 1;

tong:=0;

i:=1;

repeat

tong:=tong+i;

i:=i+2;

until i>n;

writeln('tong =',tong);

readln;

end.