Bài 8. Lặp với số lần chưa biết trước

Duongtrucqui

Viet chuong trinh nhap n so nguyen tu ban phim (do dai day so nhap tu ban phim);

a.In ra cac so nguyen duong

b.In ra man hinh cac so ngto trong day so vua nhap

Mn giup ban mik vs giai giup mik bai nay nha

Cam on aj

Nguyễn Lê Phước Thịnh
20 tháng 6 2020 lúc 20:19

uses crt;

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

n,i,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Cac so nguyen duong la: ');

for i:=1 to n do

if a[i]>0 then write(a[i]:4);

writeln;

writeln('Cac so nguyen to la: ');

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do

if a[i] mod j=0 then kt:=1;

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

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Duongtrucqui
Xem chi tiết
Duongtrucqui
Xem chi tiết
Duongtrucqui
Xem chi tiết
Văn Thành Long
Xem chi tiết
Trần Khánh Thảo
Xem chi tiết
Trần Nhật Kiều Oanh
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Phùng Tú Văn
Xem chi tiết
Bao An Nguyen Thien
Xem chi tiết