Những bài này mình tự làm được hết rồi nhưng mà mình đăng lên để mọi người chia sẻ thuật toán với nhau sao cho nó tối ưu nhất nhé. Mình cảm ơn ! Bài 1

Bài 1: (số 36 là sai nha bạn vì số 3 không phải là số chính phương)

const fi=’scpk.inp’;
   fo=’scpk.out’;
var f:text;
 n,i:longint;
 s:string;
 kt:boolean;
function cp(x:longint):boolean;
begin
 if sqr(trunc(sqrt(x)))=x then cp:=true 
 else cp:=false;
end;
begin
 assign(f,fi);reset(f);readln(f,n);close(f);
 assign(f,fo);rewrite(f);
 str(n,s);
 for i:=1 to length(s) do 
 if s[i]=’0′ then kt:=false
 else
 begin
  if cp(n)=true then n:=n div 10;
  if cp(n)=true then kt:=true else kt:=false;
 end;
 if kt=true then write(f,’yes’) else write(f,’no’);
 close(f);
end.

Bài 2:

const fi=’cthh.inp’;
   fo=’cthh.out’;
var f:text;
 d,i,x,kt,tong:longint;
 s,t:string;
function dcs(x:longint):longint;
begin
 dcs:=0;
 repeat 
  dcs:=dcs+1;
  x:=x div 10;
 until x=0;
end;
begin
 assign(f,fi);reset(f);readln(f,s);close(f);
 assign(f,fo);rewrite(f);
 d:=0; 
 for i:=1 to length(s) do 
 if s[i] in [‘A’..’Z’] then inc(d);
 i:=0; t:=”; tong:=0;
 while i<=length(s) do
   begin
    while (s[i] in [‘0’..’9′]) and (i<=length(s)) do
     begin
      t:=t+s[i];
      val(t,x,kt);
      inc(i);
     end;
    if dcs(x)<3 then tong:=tong+x;
    x:=0;
    t:=”;
    inc(i);
   end;
 writeln(f,d);
 writeln(f,tong);
 close(f);
end.