Viết chương trình nhập số N. in ra màn hình các số nguyên tố từ 1->N.nhanh

Question

Viết chương trình nhập số N. in ra màn hình các số nguyên tố từ  1->N.nhanh

thubichdan · Answer

uses crt;
var i,j,n:longint;
begin
clrscr;
write(‘n=’);readln(n);
write(‘Cac so nguyen to tu 1 toi n:’);
for i:=2 to n do
begin
j:=2;
while i mod j<>0 do inc(j);
if j=i then write(i,’;’);
end;
readln
end.

/////////////////////////////

Test:

viet-chuong-trinh-nhap-so-n-in-ra-man-hinh-cac-so-nguyen-to-tu-1-n-nhanh Trả lời

hienthuc · Answer

program oken;
uses crt;
var n,i,j,dem: longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
write(‘Cac so nguyen to: ‘);
for i:=1 to n do
begin
dem:=0;
for j:=2 to (i div 2) do
if (i mod j=0) then
dem:=dem+1;
if dem=0 then
write(i,’ ‘);
end;
readln;
end.

Viết chương trình nhập số N. in ra màn hình các số nguyên tố từ 1->N.nhanh

Viết một bình luận Hủy