Mọi người giúp mik với ạ Viết phương trình pascal: Cho số TN n , hãy tìm chữ số đầu tiên của n. Input: số TN n (n<10^9) Output: Chữ số đầu tiên của n

Về mặt ý tưởng, bài này bạn cần tính phần nguyên của n với 10^k là ok, tức n div 10^k (với k là số chữ số của n). Cho nên bước 1 là dùng cách div và cộng dồn vào s để tính số chữ số của n; sau đó dùng lệnh for…do để tính 10^k bằng cách đã nêu dưới ctrinh. Cuối cùng in ra kết quả là n div 10^k. Dưới đây là chương trình cụ thể.

—————————————————————————-

Program    tim_csdt;

uses crt;

 var n ,m , k,i: longint;

d,e: longint;

begin

    write(‘nhap n ‘);

    readln(n);

    d := 0; m:=n;

    while  m <> 0 do

    begin

    d := d + 1;

    m:=m div 10;

    end;

    e:=1;

    for i:=1 to d-1 do

    e:=e*10;

    writeln(‘co so chu so la ‘,n div e);

end.