Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
my tra

Viết chương trình tìm số nguyên tố của 1 dãy số

mk cần gấp có ai biết xin giúp mk

Minh Lệ
26 tháng 4 2019 lúc 12:04

Lời giải :

program hotrotinhoc ;

var i,n : integer ;

function kt (n: integer) : boolean;

var i : integer ;

begin

kt:=true;

for i:= 2 to trunc(sqrt(n)) do

if n mod i=0 then kt:=false ;

end;

begin

write('Nhap do dai cua day so :'); readln(n);

for i:= 1 to n do

if kt=true then write(i,' ');

readln

end.


Các câu hỏi tương tự
Lê Trần Bội Bội
Xem chi tiết
Lê Trần Bội Bội
Xem chi tiết
Dương Phương Trà
Xem chi tiết
baopham
Xem chi tiết
Mai Thị Mỹ Ngọc
Xem chi tiết
Ngáo Ngơ Alice
Xem chi tiết
nguyễn thị diệu linh
Xem chi tiết
Rosabella Anne
Xem chi tiết
Mai Thị Bảo Phương
Xem chi tiết