Một xâu được gọi là chuẩn nếu đầu và cuối xâu không có ký tự trống, đồng thời
trong xâu không có 2 ký tự trống kề liền. Cho xâu S không quá 500 kí tự.
Yêu cầu: - Chuẩn hóa xâu đã nhập.

- Tìm số lượng kí tự chữ số trong xâu.

Dữ liệu vào: Xâu kí tự S.
Dữ liệu ra: Dòng 1: In ra xâu đã chuẩn hóa.
Dòng 2: In ra số lượng kí tự chữ số.

begin

  writeln('15*4-30+12=',15*4-30+12);

  writeln('(10+5)/(3+1)-18/(5+1) =',(10+5)/(3+1)-18/(5+1));

  writeln('(10+2)*(10+2)/(3+1)=',(10+2)*(10+2)/(3+1));

  write('((10+2)*(10+2)-24)/(3+1)=',((10+2*(10+2)-24)/(3+1));

  readln

end.

uses   crt;

var    N, i: integer;

begin

       clrscr;

       write('Nhap so N=');readln(N);

       writeln;

       writeln('Bang nhan, ',N);

       writeln;

       for i:=1 to 10 do

       begin

               GotoXY(5,WhereY);

               writeln(N,'x',i:2,'=',N*i:3);

               writeln

       end;

       readln

end.

Số chính phương là một số nguyên dương bằng bình phương của một số nguyên dương. Ví dụ: 1, 4, 9, 16, 100 … là những số chính phương; còn 3, 8, 15 … không phải là những số chính phương.
Cho trước một số nguyên dương n. Em hãy kiểm tra xem n có phải là số chính phương không?
Input: Một dòng duy nhất chứa số nguyên dương n.
Output: Đưa ra thông báo "yes" nếu n là số chính phương, ngược lại thông báo "no".