uses crt;
var st:string;
t:char;
d,i,dem:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
write('nhap ki tu:'); readln(t);
dem:=0;
for i:=1 to d do
if st[i]=t then inc(dem);
writeln('Trong xau co ',dem,' ki tu ',t);
readln;
end.
uses crt;
var st:string;
t:char;
d,i,dem:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
write('nhap ki tu:'); readln(t);
dem:=0;
for i:=1 to d do
if st[i]=t then inc(dem);
writeln('Trong xau co ',dem,' ki tu ',t);
readln;
end.
1.Viết chương trình nhập vào 1 xâu (s1) và in ra màn hình xâu đã nhập. + nhập vào xâu thứ 2 và in ra màn hình xâu dài hơn( nếu bằng nhau thì in ra xâu nhập sau) +kiểm tra kí tự đầu tiên trong xâu S1 có trùng với kí tự cuối cùng của xâu S2 khong? +in ra màn hình xâu đảo ngược của xâu S1 +in ra xâu S1 khi đã loại bỏ kí tự trắng ( nếu có) +in ra xâu chỉ có kí tự là chữ cái xuất hiện trong xâu S2( không phân biệt chữ hoa, thường) +đếm xem có bao nhiêu chữ số trong xâu S2. Ét o ét mọi người ơi
giúp em với sáng mai em thi rồi..
1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ "nang" thành "mua".
2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu 'ABBA' là một xâu palindrom).
giúp em với ạ em rất cần gấp
a. Viết chương trình nhập vào 1 xâu bất kì xuất ra độ dài cùa xâu và số kí tự trống.
b. Viết chương trình nhập vào một xâu bất kì xuất ra xâu đảo ngược
c.Viết chương trình nhập vào một xâu bất kì xuất ra xâu có là xâu đối xứng hay không đối xứng
d. Viết chương trình nhập vào một xâu bất kì xuất ra xâu viết in hoa tất cả
Viết chương trình nhập từ bàn phím xâu kí tự ST có độ dài không quá 100 và 1 kí tự CH .Hãy thông báo ra màng hình số lần xuất hiện kí tự CH có trong xâu ST
Viết chương trình nhập vào 1 xâu kí tự có lẫn số có 3 chữ số (vd:vev434gvre43) có kiểm tra việt nhập sai, nếu nhập sai cho nhập lại.
kiểm tra số đá có phải số nguyên tố không.
Nhập vào một xâu bất kỳ kiểm tra xem kí tự số hay kí tự chữ cái nhiều hơn
Viết chương trình nhập xâu bất kì từ bàn phím. Đếm các kí tự số trong xâu vừa nhập
Viết chương trình nhập vào 1 xâu, tạo xâu từ xâu vừa nhập bao gồm các kí tự khác chữ, hiển thị kết quả ra màn hình
Viết chương trình nhập vào 1 xâu bất kì, xuất ra màn hình số lượng kí tự trong xâu đã nhập.
mọi người giúp mk bài này với.