không sai vẽ

 hình ra r vét hết trươngf hợp các góc 

khai báo tự viết

 for i:=1 to n do

 if sqr(trunc(sqrt(a[i])))=a[i] then write(a[i]);

lỗi tại ch rep tin nhắn tui :))

nghe tui

 khai bào tự viết 

p:=1; k:=1;

 for i:=0 to 999 do 

begin

s=i;

 while s>0 do

 begin

  p:=p+1;

a[p]:=s mod 10;

s:=s div 10;

 if  (p=1) and (a[1]*a[1]*a[1]=i) then begin b[k]:=i; k:=k+1; end;

if (p=2) and (a[1]*a[1]*a[1]+a[2]*a[2]*a[2]=i) then begin b[k]:=i; k:=k+1; end;

if (p=3) and (a[1]*a[1]*a[1]+a[2]*a[2]*a[2]+a[3]*a[3]*a[3]=i) then begin b[k]:=i; k:=k+1; end;

p:=1;

end;

  end;

 for i:=1 to k do 

 write(b[i]);

code 

 s:=a[1];

 for i:=2 to n do 

 s:=s+a[i]; hoặc s:=s-a[i]; hoặc s:=s*a[i];

 write(s);

 readln;

end.

 phần trên khai báo tưj viết

câu hiệu của n số tự nhiên đầu tiên đề cx k rõ vì k bt lấy cái nào trừ :))

code câu a tạm 

  s:=0;n:=5;

 while s<=50 do 

 begin

 i:=i+2; s:=s+i;

end;

 write(s);

 readln;

end.

phần trên khai báo tự viết

câu 2 đem in4 or gmail r viết cho r viết code cho dài vl ra

lặp 5 lần s=55

vieets chưng trình hay j á