Lời giải :
program hotrotinhoc ;
var s: string;
begin
write('Nhap xau s :'); readln(s);
while s[1]=#32 do
delete(s,1,1);
while pos(#32#32,s) <>0 do
delete(s,pos(#32#32,s),1);
while s[length(s)]=#32 do
delete (s,length(s),1);
write(s);
readln
end.
Giúp mình bài này với. Viết chương trình nhập 1 xâu bất kì. Đưa ra màn hình các kí tự và chữ số.
Viết chương trình nhập vào một xâu kí tự có độ dài n từ bàn phím và đếm số kí tự chữ số trong xâu, In kết quả ra màn hình.
GIÚP MÌNH VỚI, MÌNH ĐANG CẦN GẤP. SOS, TKS. ˚ω˚˚ω˚
Bài 1: Viết chương trình nhập vào dãy A gồm N phần tử nguyên. Hãy:
A. Tính và đưa ra màn hình tổng các phần tử chẵn trong dãy
B. Đếm và đưa ra màn hình số lượng phần tử âm trong dãy
Bài 2: Viết chương trình nhập vào sâu S từ bàn phím( có cả kí tự chữ và kí tự số ) hãy viết ra màn hình xâu S sau khi loại bỏ các kí tự số
viết chương trình vào 1 sâu S từ bàn phím. Đưa ra màn hình số từ có trong sâu
Viết chương trình nhập vào một xâu ký tự S. Xuất xâu đã nhập. Thực hiện chuyển đổi các ký tự thường thành ký tự in hoa có trong sâu S. Xuất xâu S đã chuyển đổi ra màn hình
Nhập từ bàn phím 1 mảng gồm n số nguyên ( n <= 50, n nhập từ bàn phím )
yêu cầu : Đếm và viết ra màn hình số phần tử có giá trị chẵn trong mảng
viết ra giá trị tbc của các số chẵn trong mảng
Viết chương trình xóa ký tự Ch xuất hiện trong xâu S. In ra xâu S và độ dài xâu S sau khi xóa đi kí tự ch.
Hãy viết chương trình nhập vào từ bàn phím xâu kí tự S (không quá 200 kí tự). Sau đó thực hiện các công việc sau:
+ In lại xâu S theo chiều ngược lại.
+ Đếm xem trong xâu S có bao nhiêu từ.
VD: S= ‘Do Minh Thom87’
=> In lại xâu S: ’78mohT hniM oD’
=> Số từ: 3
Mọi người giúp mình với ạ!
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA
