Câu 1: Viết chương trình nhập 3 số dương a,b,c từ bàn phím, kiểm tra và in ra màng hình ba số đó có thể là độ dài 3 cạnh của một tam giác hay không ?
Câu 2: Viết chương trình tính tổng của N số tự nhiên đầu tiền với N là số tự nhiên được nhập từ bàn phím?
Câu 3: Ta kí hiệu N! là tích N số tự nhiên , đọc là N giai thừa
N!=1*2*3*...*N
Viết chương trình tính N! với N được nhập từ bàn phím
Câu 4: Viết chương trình nhập vào 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 hình chữ nhật đó /
Câu 5: 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ố đó có chia hết cho 2 và 3?
Câu 6: Viết chương trình nhập số nguyên dương X có 2 chữ số, in ra màng hình cho biết số hàng chục và đơn vị của số X ?
-------------------------------------------------------------------------------------------------------------------------------------------------------
giúp với ạ.gần thi rồi:<
bt1:
Program Ba_canh_tam_giac;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln('Nhap ba so a,b,c:'); readln(a,b,c);
If(a+b>c) and (b+c>a) and (a+c>b) then
writeln('a, b va c la 3 canh cua mot tam giac!');
else writeln('a, b va c khong la 3 canh cua mot tam giac!');
readln
end.
bt2:
Program Tinh_Tong;
var N,i:integer;
S:longint;
begin
write('Nhap so N='); readln(N);
S:=0;
for i:=1 to N do S:=S+i;
write('Tong cua,'N,'so tu nhien dau tien S=',S);
readln
end.
Bt3:
Program Tinh_Giai_Thua;
var N,i:integer;
P:longint;
begin
write('N='); readln(N);
P:=1;
for i:=1 to N do P:=P*i;
writeln(N,'! =',P);
readln
end.
