Cho xâu kí tự S được lấy từ tập 'a'..'z','A'..'Z'  và dấu cách. Từ trong xâu là dãy gồm tất cả các ký tự chữ cái liên tục. Xâu S được gọi là chuẩn hóa nếu thỏa mãn các điều kiện:

-Giữa các từ chỉ có 1 dấu cách.

-Đầu xâu và cuối xâu không có dấu cách.

-Ký tự đầu là chữ in hoa, các ký tự còn lại in thường.

Yêu cầu: Chuẩn hóa xâu S

program Tingtongs;

uses crt;

var n,i:integer; s:longint;

begin

clrscr;

write('nhap n:'); readln(n);

for i:=1 to n do s:=s+i;

write('Tong la: ',s);

readln;

end.

program tong;

uses crt;

var n,i:integer;

t:longint;

begin

clrscr;

write('nhap n:'); readln(n);

t:=0;

for i:=1 to n do 

  t:=t+1/i;

writeln(t);

readln;

end.

1).

program oken;

uses crt;

var n,i: integer;

      gt: qword;

begin

write('nhap n: '): readln(n);

gt:=1;

for i:=1 to n do gt:=gt*i;

writeln('N!=',gt);

readln;

end.

2).

program tongcacsole;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 203 do 

  if i mod 2 = 1 then t:=t+i;

write(t);

end.

3).

program tongcacsochan;

uses crt;

var t,i:longint;

begin

clrscr;

for i:=1 to 20 do 

  if i mod 2 = 0 then t:=t+i;

write(t);

end.

1).

progam chuso_max;

uses crt;

var n:longint;

      max:byte;

begin

       clrscr;

       write(‘Nhap so: ‘); readln(n);

       max:=0;

       while n>0 do

              begin

                     if n mod 10>max then max:=n mod 10;

                     n:=n div 10;

              end;

       write(‘Chu so lon nhat la: ‘,max);

       readln;

end.

2).

uses crt;

var a,b,bcnn,i:longint;

begin

clrscr;

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

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

bcnn:=a*b;

for i:=a*b-1 downto 1 do 

  if (i mod a=0) and (i mod b=0) then 

   begin

if bcnn>i then bcnn:=i;

end;

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.