Nguyễn Lê Phước Thịnh
Nguyễn Lê Phước Thịnh CTV 4 giờ trước (23:07)

uses crt;

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

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if sqrt(a[i])=trunc(sqrt(a[i])) then 

begin

inc(dem);

b[dem]:=a[i];

end;

dem1:=0;

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 

begin

inc(dem1);

c[dem1]:=a[i];

end;

end;

if dem=0 then writeln('Trong day khong co so chinh phuong')

else begin

writeln('Cac so chinh phuong trong day la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

if dem1=0 then writeln('Trong day khong co so nguyen to')

else begin

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

for i:=1 to dem1 do 

  write(c[i]:4);

end;

readln;

end.

Bình luận (0)
Thanh Hoàng Thanh
Thanh Hoàng Thanh 4 giờ trước (23:20)

1.Five million bottles of Champagne produce next year.

2.This exercise must be done carefully.

Bình luận (0)
Phương Dung
Phương Dung 4 giờ trước (23:19)

   Complete the sentences using one of these verb in the correct form

mention       make up       produce       folllow       do

1) Five million bottles of Champagne will be produced next year

2) This exercise must be done carefully

3) I think we are being followed

4) The life on the planet might be made up

5) The "ao dai" have mentioned by writers and musicans in poets, novels and songs for centuries

Bình luận (0)

Khoá học trên OLM của Đại học Sư phạm HN