pascal

[hai6f2009]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

mong các bạn giúp cho mình bt sau:
Nhập từ bàn phím tuổi cha và con ( Hiện tại tuổi cha lớn hơn hai lần tuổi con va 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 ? ".

 

[11thanhkhoeo]

var i,n,m:byte;
begin
write('nhập cha, con');
reADln(n,m);

while n< 2*m do
begin
n:=n +1;
m:=m+1;
i:=i+1;
end;
write(' sau', i ,' nam ');
readln;
end.

 

[hai6f2009]

cảm ơn bạn nhưng kết hợp với dk là n > 2*m và n = 25 + m thì bạn sẽ làm thế nào?

 

[11thanhkhoeo]

var i,n,m:byte;
begin 
repeat 
write('nhập cha, con');
 reADln(n,m);
until (n>=m+25) and (n>2*m );
while n> 2*m do 
begin 
   n:=n +1;
   m:=m+1;
   i:=i+1;
end;
  write(' sau', i ,' nam ');
readln;
end.

Ok men

 

[mikelhpdatke]

Mình complite có thấy lỗi gì đâu :-?...................

 

[11thanhkhoeo]

Chạy tốt mà

 

[hai6f2009]

mình không biết nữa. Mình nhập như thế vào free pascal thì tự nhiên bị lỗi như vậy.

 

[mikelhpdatke]

Bạn copy code vào chạy xem, hoặc chụp lỗi post lên đây xem ...

 

[hai6f2009]

à! mình biết lỗi ở đâu rồi!
Đây là bài thứ hai: Một người gửi tiết kiệm không kì hạn với số tiền A đồng với lãi suất 0,3% mỗi tháng. Hỏi sau bao nhiêu tháng, người đó được số tiền ít nhất là B đồng? Biết rằng với việc gửi tiết kiệm không kì hạn thì lãi không được cộng vào vốn.