1/ Viết chương trình nhập vào 2 cạnh của một hình chữ nhật.In ra màn hình diện tích và chu vi của nó.
2/ Viết chương trình nhập vào bán kính của hình tròn.In ra màn hình diện tích và chu vi của nó.
3/Viết chương trình tính tổng N số tự nhiên đầu tiên?
4/Viết chương trình tính N! (Với N!= 1*2*3*...*n)
5/ Viết chương trình nhập vào hai số a,b. Kiểm tra tổng của chúng là có phải là số dương và chia hết cho 3 hay không?
1/
Program HCN;
Uses crt;
Var a,b,cv,dt:integer;
BEGIN
Clrscr;
Write(‘Hay nhap chieu dai: ‘); Readln(a);
Write(‘Hay nhap chieu rong: ‘); readln(b);
Cv:=(a+b)*2;
Writeln(‘Chu vi hinh chu nhat la: ‘,cv);
Dt:=a*b;
Writeln(‘Dien tich hinh chu nhat la: ‘,dt);
Readln;
end.
2/
Program Hinh_tron;
Uses crt;
Var r:integer;
Cv,dt:real;
Const pi=3.14;
BEGIN
Clrscr;
Write(‘Hay nhap ban kinh: ‘); Readln(r);
Cv:=2*r*pi;
Writeln(‘Chu vi hinh chu nhat la: ‘,cv:5:2);
Dt:=sqr(r)*pi;
Writeln(‘Dien tich hinh chu nhat la: ‘,dt:5:2);
Readln;
end.
3/
Program tong;
Uses crt;
Var n,s, i:integer;
BEGIN
Clrscr;
Write(‘Hay nhap n: ‘); Readln(n);
S:=0;
For i:= 1 tong do
S:= S+i;
Writeln(‘Tong la: ‘,s);
Readln;
end.
4/
Program tich;
Uses crt;
Var n,i:integer;
S:longint;
BEGIN
Clrscr;
Write(‘Hay nhap n: ‘); Readln(n);
S:=1;
For i:= 1 to n do
S:= S*i;
Writeln(‘Tich la: ‘,s);
Readln;
END.
5/
Program kt_tong;
Uses crt;
Var a,b:integer;
S:longint;
BEGIN
Clrscr;
Write(‘Hay nhap a: ‘); Readln(a);
Write(‘Hay nhap b: ‘); Readln(b);
s:=a+b;
If (s>0) and (s mod 3 = 0) then
Writeln(‘Tong s la so duong chia het cho 3’)
Else
Writeln(‘Tong s khong phai la so duong chia het cho 3');
Readln;
END.
