Bài 1: Nhập từ bàn phím tuổi của cha và con (hiện tại tuổi cha lớn hơn hai lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25 ). Đưa ra màn hình câu trả lời cho câu hỏi “Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con ?”.
Bài 2: vct tìm và in ra màn hình tất cả các hoán vị 12345.
Bài 3: Trong giõ vừa thỏ vừa gà, 100 cái cẳng,43 cái đầu Hỏi mấy gà, mấy thỏ
Bài 2: vct tìm và in ra màn hình tất cả các hoán vị 12345.
Bài 3: Trong giõ vừa thỏ vừa gà, 100 cái cẳng,43 cái đầu Hỏi mấy gà, mấy thỏ
Quảng cáo
2 câu trả lời 640
Bai 1:
uses crt;
var tcha,tcon,n:integer;
begin
clrscr;
write('nhap tuoi cha:');
readln(tcha);
write('nhap tuoi con:');
readln(tcon);
if (tcha>0) and (tcon>0) and (tcha>tcon) then
if tcha>2*tcon then
if tcha-tcon>=25 then
while tcha/tcon<>2 do
begin;
tcha:=tcha+1;
tcon:=tcon+1;
n:=n+1;
end
else
write('du lieu khong hop le');
if tcha/tcon=2 then
write('sau ',n,' nam thi tuoi cha gap doi tuoi con');
readln;
end.
var tcha,tcon,n:integer;
begin
clrscr;
write('nhap tuoi cha:');
readln(tcha);
write('nhap tuoi con:');
readln(tcon);
if (tcha>0) and (tcon>0) and (tcha>tcon) then
if tcha>2*tcon then
if tcha-tcon>=25 then
while tcha/tcon<>2 do
begin;
tcha:=tcha+1;
tcon:=tcon+1;
n:=n+1;
end
else
write('du lieu khong hop le');
if tcha/tcon=2 then
write('sau ',n,' nam thi tuoi cha gap doi tuoi con');
readln;
end.
giai thich
tcha: tuổi cha
tcon: tuổi con
n: năm
Bài 2
uses crt;
var a,b,c,d,e:integer;
begin
clrscr;
for a:=1 to 5 do
for b:=1 to 5 do
for c:=1 to 5 do
for d:=1 to 5 do
for e:=1 to 5 do
if (a<>b) and (a<>c) and (a<>d) and (a<>e)
and (b<>c) and (b<>d) and (b<>e)
and (c<>d) and (c<>e)
and (d<>e) then
write(a,b,c,d,e,' ');
readln;
end.
var a,b,c,d,e:integer;
begin
clrscr;
for a:=1 to 5 do
for b:=1 to 5 do
for c:=1 to 5 do
for d:=1 to 5 do
for e:=1 to 5 do
if (a<>b) and (a<>c) and (a<>d) and (a<>e)
and (b<>c) and (b<>d) and (b<>e)
and (c<>d) and (c<>e)
and (d<>e) then
write(a,b,c,d,e,' ');
readln;
end.
Bài 3
Uses crt;
Var ga,tho:byte;
Begin
Clrscr;
for ga:=1 to 43 do
begin
tho:=43 - ga;
if 4*tho+2*ga=100 then
writeln('so ga va tho la: ',ga,' ',tho);
end;
Readln
End.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
38793 -
Hỏi từ APP VIETJACK28120
Thành viên hăng hái nhất trong tuần
-
KTV nam
1490 điểm
-
muahehehehe
1335 điểm
-
Allele
1235 điểm
-
꧁🍀༒*ੈ✩·₊˚༺song ngư*ੈ✩·₊˚༺༒🍀꧂
945 điểm
-
an an là mặt trời nhỏ🌝
930 điểm
-
౨ৎᴀʀɪᴀ౨ৎ
875 điểm
-
Phún phín Pé(Min)
715 điểm
-
anh đẹp zai nek
610 điểm
-
𝓶𝓲𝓼𝓾
465 điểm
-
Sinestrea k12
325 điểm
-
ngan khanh
255 điểm
-
Lê Thiên Phú 155 điểm
-
I love otp /ZATA x LAVILLE/
145 điểm
-
đông đông là mặt trời nhỏ
130 điểm
Rút gọn
Bài viết mới nhất Lớp 9
-
4 năm trước8446
-
4 năm trước7794
-
4 năm trước7238
-
4 năm trước7258
Gửi báo cáo thành công!
