- Tin Học
- Lớp 9
- 50 điểm
- thenextvoz -
Một chú Kangaroo muốn đi thăm một người bạn trên cùng tuyến đường cách đó n (mét). Kangaroo chỉ có 2 cách di chuyển một là nhảy ngắn a (mét), hai là nhảy dài b (mét). Hỏi Kangaroo cần nhảy ít nhất bao nhiêu lần để đến được nhà bạn (phải nhảy vừa đủ không nhày quá nhà bạn). (Với a, b, n nhập từ bàn phím. Không dùng chương trình con)
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
uses crt;
var a,b,n:longint;
min:word;
begin
clrscr;
readln(a,b,n);
min:=0;
while n mod b<>0 do
begin
n:=n-a;
inc(min);
end;
min:=min+(n div b);
writeln(min);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho Lớp 9 - Ôn Thi Vào Lớp 10 Miễn Phí
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
2289
45102
1741
màu mè :))
1210
30619
1167
lúc đầu tính là có cả đoạn này cơ :))
1210
30619
1167
procedure nhay(t:longint;dem:word); var i:byte; begin if min=n div a + 1 then begin if t<n then begin for i:=1 to 2 do begin if i=1 then t:=t+b else t:=t+a; inc(dem); nhay(t,dem); if i=1 then t:=t-b else t:=t-a; dec(dem); end; end else if t=n then if dem<min then min:=dem; end; end; Rút gọnprocedure nhay(t:longint;dem:word); var i:byte; begin if min=n div a + 1 then begin if t<n then begin for i:=1 to 2 do begin if i=1 then t:=t+b else t:=t+a; ... xem thêm
1210
30619
1167
màu thật sự
2289
45102
1741
đọc ko hiểu j @@ nhưng nó dài và màu thật :))
1210
30619
1167
:)))))))
9
75
4
bạn ko xử lí nếu ko có thì ra -1 hả bn?
2
125
0
có c++ ko bạn