Bài 1:
Program NN;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write('Nhap a,b: '); Readln(a,b);
Writeln('Tong = ',a+b);
Writeln('Hieu = ',a-b);
Writeln('Tich = ',a*b);
Write('Thuong = ',a/b:0:2);
Readln
End.
Bài 2:
Program NN;
Uses crt;
Const pi=3.14;
Var r,a,b,p,s: real;
Begin
Clrscr;
Writeln('HINH TRON');
Write('Nhap ban kinh: '); Readln(r);
s:=r*r*pi;
p:=2*r*pi;
Writeln('Chu vi: ',p:0:2);
Writeln('Dien tich: ',s:0:2);
Writeln('HINH CHU NHAT');
Write('Nhap chieu dai va chieu rong: '); Readln(a,b);
s:=a*b;
p:=(a+b)*2;
Writeln('Chu vi: ',p:0:2);
Writeln('Dien tich: ',s:0:2);
Writeln('HINH VUONG');
Write('Nhap do dai canh: '); Readln(a);
s:=a*a;
p:=4*a;
Writeln('Chu vi: ',p:0:2);
Write('Dien tich: ',s:0:2);
Readln
End.
Bài 3:
Program NN;
Uses crt;
Var a,b: longint;
Begin
Clrscr;
Write('Nhap a va b: '); Readln(a,b);
If a>0 then Writeln(a,' duong')
Else If a<0 then Writeln(a,' am')
Else Writeln(a,' khong am khong duong');
If a mod 2 = 0 then Writeln(a,' la so chan')
Else Writeln(a,' la so le');
If a mod 3 = 0 then Writeln(a,' chia het cho 3')
Else Writeln(a,' khong chia het cho 3');
If a mod 5 = 0 then Writeln(a,' chia het cho 5')
Else Writeln(a,' khong chia het cho 5');
If a>b then Write(a,' lon hon ', b)
Else If b>a then Write(b,' lon hon ',a)
Else Write('Bang nhau');
Readln
End.
