Câu 1: viết chương trình nhập một xâu từ bàn phím. Đưa ra màn hình xâu thu được từ nó bởi việc loại bỏ các dấu cách(nếu có). Câu 2: viết chương trình

Câu 1:

program bo_dau_cach;

uses crt;

var s:string;

      i:byte;

begin

       clrscr;

       write(‘Nhap xau: ‘);  readln(S);

       i:=1;

       while i<=length(s) do

              if s[i]=’ ‘ then delete(s,i,1) else i:=i+1;

       write(‘Xau sau khi xoa la: ‘,s);

       readln;

end.

Câu 2:

program tong_3;

uses crt;

var A:array[1..100] of integer;

      n,i,t:integer;

begin

       clrscr;

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

       t:=0;

       for i:=1 to n do

              begin

                     write(‘A[‘,i,’]= ‘);  readln(A[i]);

                     if A[i] mod 3=0 then t:=t+A[i];

              end;

       write(‘Tong cac so chia het cho 3 trong day la: ‘,t);

       readln;

end.