Quảng cáo
4 câu trả lời 353
uses crt;
var n,j,i:integer;
a:array[1..100]og integer;
kt:boolean;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do if a[i]>1 do
begin
kt:=true;
for j:=2 to a[i]-1 do if a[i] mod j=0 then
begin
kt:=false;
break;
end;
if kt=true then write(a[i];' ');
end;
readln
end.
uses crt;
var n,j,i:integer;
a:array[1..100]og integer;
kt:boolean;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do if a[i]>1 do
begin
kt:=true;
for j:=2 to a[i]-1 do if a[i] mod j=0 then
begin
kt:=false;
break;
end;
if kt=true then write(a[i];' ');
end;
readln
end.
uses crt;
var a: array [1..1000] of integer;
i,n: integer;
begin
clrscr;
write('nhap do dai day so: '); readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,': '); readln(a[i]);
end;
write('day vua nhap la: ');
for i:=1 to n do write(a[i]:4);
readln;
end.
https://hoc247.net/hoi-dap/tin-hoc-8/viet-ct-nhap-vao-1-day-so-nguyen-sau-do-in-ra-man-hinh-cac-so-nguyen-to-vua-nhap-faq456240.html#:~:text=program%20bai1%3B%20var,i%2C%27%20%27)%3B%20readln%20end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44794
-
Hỏi từ APP VIETJACK26450