Câu hỏi của Givemesome Flan

Question

loading... Giúp mình câu 29 làm theo kiểu mảng giúp mình

Nguyễn Lê Phước Thịnh · Accepted Answer

29:

uses crt;

var n,i,j,kt:integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do

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

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

end;

readln;

end.

Câu trả lời:

29:

uses crt;

var n,i,j,kt:integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do

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

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

end;

readln;

end.