PROGRAM BAI8BAI8BAI8;BAI8;;; PROGRAM PROGRAM PROGRAM USES CRT;U...
Bài 8.
program Bai8
Bai8
Bai8;
Bai8
;
;
;
program
program
program
uses crt;
uses crt;
uses crt;
uses crt;
var A, B, St, Luu :real;
var A, B, St, Luu :real;
var A, B, St, Luu :real;
var A, B, St, Luu :real;
n:byte;
n:byte;
n:byte;
n:byte;
begin
begin
begin
begin
clrscr;
clrscr;
clrscr;
clrscr;
write('Nhap so tien gui: ');readln(a);
write('Nhap so tien gui: ');readln(a);
write(
write('Nhap so tien nhan: ');readln(b);
'Nhap so tien nhan: ');readln(b);
'Nhap so tien nhan: ');readln(b);
'Nhap so tien nhan: ');readln(b);
luu:=A; n:=0; st:=a;
luu:=A; n:=0; st:=a;
while St<=B do
while St<=B do
while St<=B do
while St<=B do
St:
St:
St:=St+luu*0.0
St:
=St+luu*0.0
=St+luu*0.003
=St+luu*0.0
03
03
03;
;
;
;
n:=n+1;
n:=n+1;
n:=n+1;
n:=n+1;
end
end
end
end;
;
;
;
writeln('So thang can la: ',n);
writeln('So thang can la: ',n);
writeln('So thang can la: ',n);
writeln('So thang can la: ',n);
readln
readln
readln
readln
end
end
end
end.
.
.
.
Ví Dụ
Ví Dụ
Ví Dụ
Ví Dụ