BÀI TẬP 58. Tìm số N có X chữ số (Câu 4 – Đề thi Tuyển sinh 10 An Giang 2020-2021)

Viết chương trình nhập vào từ bàn phím số X (với 3 <= X <= 9). Tìm và in ra màn hình số N có X chữ số, biết rằng N vừa chia hết cho 5 vừa chia hết cho 9 và căn bậc hai của N là một số tự nhiên. Lưu ý: chỉ in ra một giá trị N lớn nhất. Lưu bài làm vào tệp có tên là BAI04.PAS.

Ví dụ: Với X = 3 thì N = 900.

CODE THAM KHẢO:

program Bai04_TS10_21;

uses crt;

var j,x: byte;

    a,b:Qword;

    i:longint;

Procedure taoso(x:byte; var a,b:qword);

begin

        a:=100;

        for j:=4 to x do a:=a*10;

        b:=a*10;

end;

begin

        clrscr;

        repeat

                write('Nhap X = '); readln(x);

        until (x>=3) and (x<=9);

        taoso(x,a,b);

        for i:=b-1 downto a do

        if (i mod 5 = 0) and (i mod 9 = 0) and (sqrt(i) = trunc(sqrt(i))) then

        begin

                writeln('N = ',i);

                break;

        end;

        readln;

end.