var st:string;
dem,i:integer;
begin
write('Nhap xau S = ');readln(st);
dem:=0;
for i:=1 to length(st) do
if st[i] = ' ' then dem:=dem+1;
dem:=dem+1;
write('So tu cua xau S la ',dem);
readln;
end.
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
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ố
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.
nhập vào sâu S và thực hiện các yêu cầu sau:
yêu cầu hãy xóa hết các ký tự trắng có trong xâu. In xâu S ra màn hình
Viết chương trình nhập vào một xâu hãy xóa đi các dấu cách ở đầu sâu và cuối sâu nếu có rồi đưa kết quả ra màn hình
Hãy viết chương trình nhập vào bàn phím 1 sâu S hãy xóa hết các chữ số có trg sâu S vưaf nhập hiển thị kết quả ra màn hình
Viết chương trình nhập vào một xâu bất kỳ là họ và tên của học sinh. Tính và đưa ra màn hình. +Độ dài của xâu đó (kí hiệu là k) +Chuyển sâu đó thành in hoa và đưa ra màn hình
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
