Pascal 8

[kulongpro379]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào 1 số tự nhiên n. Hãy in ra n số nguyên tố đầu tiên.Help me!!!

 

[syphuongcuong3]

USES crt;
VAR i,j,n,count:WORD;
    check:INTEGER;
BEGIN
    clrscr;
    write('Nhap n: ');readln(n);
    count:=0;i:=2;
    WHILE count<=n DO
        BEGIN
            check:=1;
            IF (i=2) OR (i=3) THEN
            BEGIN
                write(i,' ');
                count:=count+1;
            END
            ELSE
                BEGIN
                    FOR j:=2 TO trunc(sqrt(i)) DO
                         IF i MOD j=0 THEN check:=0;
                    IF check=1 THEN
                         BEGIN
                              write(i,' ');count:=count+1;
                         END;
                END;
            i:=i+1;
        END;
    readln;
END.