Bài 7. Câu lênh lặp

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

Viết chương trình pascal nhập vào số nguyên n. Xuất kết quả ra màn hình ?

a) Các số nguyên liên tiếp từ 1 đến n ea màn hình?

b) Xuất các số nguyên tố có trong đoạn từ 1 đến n ra màn hình ?

Vd:

Nhap n=6

 Cac so nguyen la

   6 la hop so.

Vd: 

Nhap n=11

  Cac uoc cua n la : 1,11

     11 la so nguyen to

Giúp mình với ạ, mình đang cần gấp

Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:35

uses crt;

var a:array[1..100]of integer;

i,n,dem,kt,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do write(i:4);

writeln;

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.


Các câu hỏi tương tự
Kỳ AnH
Xem chi tiết
Thư Uyên
Xem chi tiết
Maiiii
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
Huyền Trang Trang
Xem chi tiết
Tuân Trần
Xem chi tiết
Phùng Tú Văn
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết