Question

[Ngọc Phương Phạm Thị]

Câu 1:Nhập 4 số nguyên a, b, c, d từ bàn phím, in ra số nhỏ nhất.
Câu 2: Viết chương trình xét xem một tam giác có là tam giác đều hay không khi biết ba
cạnh của tam giác.

Câu 3: Viết chương trình cho biết chữ số hàng trăm, hàng chục, hàng đơn vị của một số
có ba chữ số. Ví dụ khi nhập số 357 thì máy in ra:
– Chữ số hàng trăm: 3.
– Chữ số hàng chục: 5.
– Chữ số hàng đơn vị: 7.

Câu 4: Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ
được sử dụng hai biến.

Câu 5:Viết chương trình cho phép tính trung bình cộng của bốn số với điều kiện chỉ được sử

dụng hai biến.

MONG NHẬN ĐƯỢC SỰ GIÚP ĐỠ TỪ CÁC BẠN

Answer 1

[Nguyễn Lê Phước Thịnh]

Câu 1:

uses crt;
var a,b,c,d,min:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
writeln('so nho nhat la: ',min);
readln;
end.

Câu 2:

uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then writeln('day la 3 canh trong mot tam giac deu')
else writeln('day khong la 3 canh trong mot tam giac deu');
end
else writeln('day khong la 3 canh trong mot tam giac');
end
else writeln('vui long nhap 3 so duong');
readln;
end.

Câu 3:

uses crt;
var a,dv,ch,tr:longint;
begin
clrscr;
write('a='); readln(a);
if (a>=100) and (a<=999) then
begin
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100; tr:=tr mod 10;
writeln('chu so hang tram: ',tr);
writeln('chu so hang chuc: ',ch);
writeln('chu so hang don vi: ',dv);
end
else writeln('vui long nhap so co ba chu so');
readln;
end.

Câu 4:

uses crt;
var a,s:longint;
begin
clrscr;
s:=1;
write('so thu 1:'); readln(a);
s:=s*a;
write('so thu 2:'); readln(a);
s:=s*a;
write('so thu 3:'); readln(a);
s:=s*a;
write('so thu 4:'); readln(a);
s:=s*a;
writeln('trung binh nhan cua 4 so la: ',s/4:4:2);
readln;
end.

Câu 5:

uses crt;
var a,s:longint;
begin
clrscr;
s:=0;
write('so thu 1:'); readln(a);
s:=s+a;
write('so thu 2:'); readln(a);
s:=s+a;
write('so thu 3:'); readln(a);
s:=s+a;
write('so thu 4:'); readln(a);
s:=s+a;
writeln('trung binh cong cua 4 so la: ',s/4:4:2);
readln;
end.