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: 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 nhập một dãy nguyên A có N phần tử( N<=100). Tính và in ra màn hình tổng các số chia hết cho 3 trong dãy A. Mọi người giúp mình với, mình cần gấp, sáng mai mình thi rồi????????

0 bình luận về “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”

  1. 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.

    Bình luận

Viết một bình luận