1.Viết chương trình vào từ bàn phím số a.In kết quả ra màn hình bảng nhân a
2.Viết chương trình nhập vào các cạnh a,b,c từ bàn phím.Hãy kiểm tra đây có phải là 3 cạnh của một tam giác hay ko? Đó là tam giác gì?
3. Hãy mô tả thuật toán và viết chương trình tính diện tích,chu vi của hình a với độ dài a và b nhập vào từ bàn phím
4. Viết chương trình nhập vào 2 số nguyên x và y . In 2 số đó ra màn hình theo thứ tự tăng dần
1:
uses crt;
var a,i:integer;
begin
clrscr;
write('a='); readln(a);
writeln('bang nhan ',a,' la:');
for i:=1 to 10 do
writeln(a*i:9);
readln;
end.
2:
uses crt;
var a,b,c,kt:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
write('nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
write('day la tam giac ');
kt:=0;
if ((a=b)and(a<>c)and(b<>c)) or ((b=c)and(b<>a)and(b<>c)) or ((a=c)and(a<>b)and(c<>b)) then kt:=1;
if (a=b) and (b=c) then kt:=2;
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then kt:=3;
if kt=0 then write('thuong');
if kt=1 then write('can');
if kt=2 then write('deu');
if kt=3 then write('vuong');
end
else writeln('day khong phai la tam giac');
readln;
end.
3:
*Mô tả thuật toán
-Bước 1: nhập chiều dài a, chiều rộng b
-Bước 2: cv:=(a+b)*2;
-Bước 3: dt:=a*b;
-Bước 4: xuất dt,cv
-Bước 5: kết thúc
*Viết chương trình
uses crt;
var a,b,dt,cv:integer;
begin
clrscr;
write('nhap chieu dai:'); readln(a);
write('nhap chieu rong:'); readln(b);
dt:=a*b;
cv:=(a+b)*2;
if (a>0) and (b>0) and (a>=b) then
begin
writeln('chu vi hinh chu nhat la: ',cv);
writeln('dien tich hinh chu nhat la: ',dt);
end
else writeln('vui long nhap lai');
readln;
end.
4:
uses crt;
var x,y:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if x<y then writeln(x,' ',y)
else if y<x then writeln(y,' ',x)
else writeln('hai so bang nhau');
readln;
end.
mấy bài kia bạn xem bạn kia nhé h mik bận rồi 
