Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
2376
1805
uses crt;
var f,f1:text; g,t,p,k,a,m,b,x,d:longint;
begin
clrscr;
assign(f,'GUIBI.INP');reset(f);
assign(f1,'GUIBI.OUT');rewrite(f1);
readln(f,t);
for g:=1 to t do
begin
readln(f,d,a,m,b,x);
k:=0; p:=0;
while d+a*m+b<x do begin d:=d+a*m+b; k:=k+m+1; end;
while (d<x)and(p<m) do begin inc(k); d:=d+a; p:=p+1; end;
if d<x then begin d:=d+m; inc(k); end;
writeln(f1,k);
end;
close(f1);
close(f);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin