Question

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:<

Answer 1

https://i.imgur.com/Jx6yMGC.png

Answer 2

https://i.imgur.com/1c8SB7s.png

Answer 3

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.

Answer 4

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.

Answer 5

Bt1 đấy ạ