# data[].attributes.body
Bài Điểm Tin

# data[].attributes.body
Bài Căn Bậc 2 khi ko dùng lệnh SQRT

# data[].attributes.body
Bài Căn Bậc 2 gốc

# data[].attributes.body
Bài Đổi Giá Trị

# data[].attributes.body
Bài kiểm tra 2 số có cùng tính chắn hay lẻ

# data[].attributes.body
Bài dùng lệnh if.....then đầu tiên

# data[].attributes.body
Bài tách chữ số và in ra màn hình

# data[].attributes.body
Bài nhập số N năm và  xét số đó có phải năm nhuận hay năm thường

# data[].attributes.body
Bài nhập số a từ bàn phím và cho biết số đó là số chẵn hay số lẻ

# data[].attributes.body
Bài tính tổng điểm

# data[].attributes.body
Căn Bậc...

# data[].attributes.body
Xuân, Hạ, Thu, Đông .

# data[].attributes.body
For ... do

# data[].attributes.body
Program Bai14;
Uses Crt;
Var uoc, i, n : integer;
S : word;
Begin
Clrscr;
Writeln(' - - - - - - - - - - - - - - - ');
Writeln;
Write(' Day la chuong trinh tinh tong cac uoc cua 1 so ');
Writeln;
Write(' So ban nhap : ');
readln(n);
Write(' Cac uoc cua ',n,' la:');

S := 0;
for i := 2 to n-1 do
if  (n mod i)=0 then
Begin
Write(i:2);
S := S+i;
end;
Writeln;
write(' Tong cac uoc cua thuc su cua ',n,' la : ',S);
Writeln;
Writeln(' - - - - - - - - - - - - - - - ');
Writeln;
readln

end.

# data[].attributes.body
Bài 15 ( While do)

# data[].attributes.body
how ?

# data[].attributes.body
again .... How to ????

# data[].attributes.body
uses crt;

var n:integer;

t, a:real;

begin

clrscr;

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

n:=0; t:=0;

while t<=a do

begin

n:=n+1;

t:=t+1/n;

end;

write('So nho nhat thoa man la: ',t:4:2);

readln

end.

# data[].attributes.body
Uses Crt;
Var L5, L2, L1, n, m : longint;
Begin
Write(' n= ');
readln(n);
m := n;
L5 := n div 500;
n := n - L5 *500;

if N <> 0 then
Begin
L2 := n div 200;
n := n - L2 * 200;

if n <> 0 then
Begin
L1 := n div 100;
n := n- L1 * 100
end;
end;

Writeln(' De doi ',m,' thanh : ',L5,' 500k, ', L2 ,' 200k, ',L1,' 100k dong va ',n,'k dong le  ');

readln
end.