Question

cho truoc hai so nguyen duong a va b .viet chuong trinh tim tat ca cac so nguyen to nam trong doan tu a va b

pascal nha giup mik vs a

Answer 1

program TimSoNguyenToTrongDoan;

var

    a, b, i, j: Integer;

    laNguyenTo: Boolean;

begin

    Write('Nhap a: ');

    Readln(a);

    Write('Nhap b: ');

    Readln(b);

    Write('Cac so nguyen to trong doan tu ', a, ' den ', b, ' la: ');

    // Vòng lặp duyệt qua tất cả các số từ a đến b

    for i := a to b do

    begin

        // Kiểm tra xem i có phải là số nguyên tố không

        laNguyenTo := True;

        for j := 2 to Trunc(Sqrt(i)) do

        begin

            if (i mod j = 0) then

            begin

                laNguyenTo := False;

                Break;

            end;

        end;

        // Nếu i là số nguyên tố, in ra màn hình

        if (laNguyenTo) and (i > 1) then

            Write(i, ' ');

    end;

    Readln;

end.