Pascal

Modified: Wednesday, 22-12-2021 07:00 AM

Bờm mới học làm tròn nên mắc phải 1 sai lầm như sau:
Nếu chữ số cuối cùng lớn hơn 4 thì Bờm sẽ cộng thêm 1 vào số trước số cuối cùng đó.
Quá trình cứ lặp lại cho tới khi đạt được số chữ số cần làm tròn.
Ví dụ: làm tròn số 4.6445 đến 1 chữ số thập phân.
4.6445 → 4.645 → 4.65 → 4.7
Vậy với cách lập trình của Bờm thì có bao nhiêu trường hợp với M chữ số thập phân sẽ cho ra kết quả là K chữ số thập phân cho trước?

uses math;
var M,n:integer;
    k:string;
begin
    write('M = ');
    readln(M);
    write('K = ');
    readln(k);
    // Tach lay phan thap phan
    k:=copy(k,pos(',',k)+1,length(k));
    n:=m-length(k);
    write(trunc(5*power(5,n-1)*(n+1)));
    readln;
end.