Viết chương trình in ra các số nguyên tố nhỏ hơn hoặc bằng n, với n là

330

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 5)

Câu 64: Viết chương trình in ra các số nguyên tố nhỏ hơn hoặc bằng n, với n là số tự nhiên nhập từ bàn phím

Lời giải:  

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

write('n='); readln(n);

writeln('cac so nguyen to nho hon hoac bang ',n,' la: ');

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.

Đánh giá

0

0 đánh giá