Bài 1:

Program bai1;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

a:=21;

b:=5;

Writeln('Ket qua phep chia lay phan nguyen:',a div b);

Writeln('Ket qua phep chia lay phan du:',a mod b);

Readln

End.

Bài 2:

Program bai2;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

a:=25;

b:=4;

Writeln('Ket qua phep chia lay phan nguyen:',a div b);

Writeln('Ket qua phep chia lay phan du:',a mod b);

Readln

End.

Bài 3:

Program bai3;

Uses crt;

Var r:real;

Begin

Clrscr;

Write('Ban kinh hinh tron:');

Readln(r);

Writeln('Dien tich hinh tron=', r*r*3.14:9:2);

Writeln('Chu vi hinh tron=', r*2*3.14:9:2);

Readln

End.

Bài 4:

Program bai4;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap 2 canh cua hinh chu nhat:');

Readln(a,b);

Writeln('Dien tich hinh chu nhat=', a*b);

Writeln('Chu vi hinh chu nhat=', (a+b)*2);

Readln

End.

Bài 5:

Program bai5;

Uses crt;

Var r,S,P:real;

Const pi=3.14;

Begin

Clrscr;

Write('Ban kinh hinh tron:');

Readln(r);

S:=r*r*pi;

P:=r*2*pi;

Writeln('Dien tich hinh tron=', S:9:2);

Writeln('Chu vi hinh tron=', P:9:2);

Readln

End.