Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thanh Anh

Bài 1: Viết chương trình Pascal nhập n (n>0). Xuất ra màn hình:

các số nguyên tố từ 2 đến n và cho biết có bao nhiêu số nguyên tố từ 2 đến n 

Lưu ý : Dùng lệnh While...do hoặc Repeat....until 

Nguyễn Lê Phước Thịnh
17 tháng 2 2023 lúc 7:43

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

readln(n);

i:=1;

while (i<n) do

begin

i:=i+1;

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.

Nguyenquochuy
2 tháng 3 2023 lúc 19:48

Viết chương trình pascal nhập n ( n>0 ) xuất ra màn hình các số hoàn toàn từ 1-2n và cho bt có bao nhiêu số như vậy


Các câu hỏi tương tự
Nguyenquochuy
Xem chi tiết
crazy
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Nguyễn Thanh Anh
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Selena Flynn
Xem chi tiết
Lê Huỳnh Nhân
Xem chi tiết
8/1 Ngọc Hân
Xem chi tiết
Phan Thu
Xem chi tiết