Bài 1:
program Bai_1;
uses crt;
var n,i,S: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
write('Tong ',n,' stn dau = ',S);
readln
End.
Bài 2:
program Bai_2;
uses crt;
var n,i,S: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
if i mod 2<>0 then S:=S+i;
i:=i+1;
end;
write('Tong le ',n,' stn dau = ',S);
readln
End.
Bài 3:
program Bai_3;
uses crt;
var n,i: integer;
x,S: real;
Begin
clrscr;
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
write('Nhap so thuc thu ',i,': '); readln(x);
S:=S+x;
i:=i+1;
end;
write('Trung binh cong ',n,' thuc = ',S/n:2:2);
readln
End.
Bài 4:
program Bai_4;
uses crt;
var n: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
if n mod 2=0 then write(n,' la so chan')
else write(n,' la so le');
readln
End.
Bài 5:
program Bai_5;
uses crt;
var i,S: integer;
Begin
clrscr;
i:=1;
while i<=10 do
begin
S:=S+i;
i:=i+1;
end;
write('Tong 10 stn dau = ',S);
readln
End.
