Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program contrau;
uses crt;
var i,j,k:byte;
begin
clrscr;
for i:=1 to 20 do
for j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3 =100 then
writeln('trau dung',i,' trau nam',j,' trau gia',k);
end;
readln
end.
uses crt;
var i,j,k:integer;
begin
clrscr;
for i:=1 to 20 do
for j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3=100 then writeln('Trau dung ',i,' Trau nam ',j,' va Trau gia ',k);
end;
readln;
end.
Program ConTrau;
Uses Crt;
Var i,j,k:byte;
Begin
Clrscr;
Textcolor(Green);
For i:=1 to 20 do
For j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3 = 100 then
Writeln('Trau dung ',i,' trau nam ',j,' trau gia ',k);
end;
Readln
End.
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.
program bai_giai;
uses crt;
var tho,ga:integer;
begin
clrscr;
for tho:=0 to 43 do
begin
ga:=43-tho;
if ga*2+tho*4=100 then writeln(ga,' con ga va ',tho,' con tho');
end;
readln;
end.
B1: xác định tối đa số trâu đứng và nằm
B2: sự dụng câu lệnh lặp từ 1-> giới hạn trâu đứng, nằm
B3: gán c=100-a-b
B3: nếu 5*a+3*b+c/3 =100 thì in kq ra màn hình
B4: kết thúc ct