1 viết chương trình nhập chiều dài và chiều rộng hình chữ nhật từ bàn phím in ra màn hình chu vi và diện tích của nó
2 viết chương trình nhập số nguyên dương x từ bàn phím in ra màn hình kết quả cho biết số đó chia hết cho 2 và 3
3 viết chương trình nhập 3 số nguyên dương a,b,c từ bàn phím in ra kết quả 3 số đó có thể là cạnh của tam giác hay ko?
4viết chương trình giải phương trình bậc nhất dạng tổng quát: ax+b=0
5viết chương trình nhập số nguyên dương X có 2 chữ số ,in ra màn hình cho biết số hàng chục và đơn vị của số X
6 giống câu5 nhưnh có 1 số và phần sau in ra là số chẵn hay lẻ
7 nhập 4 số a,b,c,d hãy tìm giá trị lớn nhất của chúng và gán giá trị lớn nhất đó cho biến MAX
8
Bài 1:
Program BTT;
Uses crt;
Var a,b,p,s: extended;
Begin
Clrscr;
Write(‘Nhap chieu dai: ‘); Readln(a);
Write(‘Nhap chieu rong: ‘); Readln(b);
p:=(a+b)*2;
s:=a*b;
Writeln(‘Chu vi = ‘,p:0:2);
Write(‘Dien tich = ‘,s:0:2);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var x: qword;
Begin
Clrscr;
Write(‘Nhap so nguyen duong X: ‘); Readln(x);
If x mod 6 = 0 then Write(x,’ chia het cho 2 va 3′)
Else Write(x,’ khong chia het cho 2 va 3′);
Readln
End.
Bài 3:
Program BTT;
Uses crt;
Var a,b,c: extended;
Begin
Clrscr;
Write(‘Nhap a, b, c: ‘); Readln(a,b,c);
If (a+b>c) and (b+c>a) and (a+c>b) then Write(‘Thoa man’)
Else Write(‘Khong thoa man’);
Readln
End.
Bài 4:
Program BTT;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write(‘Nhap a, b: ‘); Readln(a,b);
If (a=0) and (b<>0) then Write(‘x vo nghiem’);
If (a=0) and (b=0) then Write(‘x vo so nghiem’);
If a<>0 then Write(‘x co nghiem ‘,-b/a:0:2);
Readln
End.
Bài 5:
Program BTT;
Uses crt;
Var a: 10..99;
Begin
Clrscr;
Write(‘Nhap mot so co hai chu so: ‘); Readln(a);
Writeln(‘Chu so hang chuc: ‘,a div 10);
Write(‘Chu so hang don vi: ‘,a mod 10);
Readln
End.
Bài 6:
Program BTT;
Uses crt;
Var a: 0..9;
Begin
Clrscr;
Write(‘Nhap so co 1 chu so: ‘); Readln(a);
If a mod 2 = 0 then Write(‘So chan’)
Else Write(‘So le’);
Readln
End.
Bài 7:
Program BTT;
Uses crt;
Var a,b,c,d,max: longint;
Begin
Clrscr;
Write(‘Nhap a, b, c, d: ‘); Readln(a,b,c,d);
max:=a;
If b>max then max:=b;
If c>max then max:=c;
If d>max then max:=d;
Write(‘GTLN la: ‘,max);
Readln
End.