Viết chương trình nhập một xâu từ bàn phím và đưa ra màn hình số lượng dấu cách trong xâu nếu có
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.
Câu 1: Viết chương trình nhập từ bàn phím xâu kí tự đếm và in ra màn hình. Số kí tự là dấu cách trong câu. Câu 2: Viết chương trình nhập từ bàn phím xâu kí tự đếm và in ra màn hình. Số kí tự là chữ in hoa trong xâu. Các câu hỏi tương tự
Viết chương trình nhập từ bàn phím xâu a, tính và đưa ra màn hình số lượng các dấu cách có trong xâu trên. Các câu hỏi tương tự
|