nhập 1 xâu S từ bàn phím (s<25), đưa ra màn hình xâu St nhưng mỗi kí tự viết trên 1 dòng.
Giúp e vs.
Nhập vào 1 xâu S từ bàn phím đếm xem trong xâu S có bao nhiêu vần " An "
var s:string;
i,d:integer;
begin
write('Nhap xau s = ');readln(s);
for i:=1 to length(s) do
if (s[i] = 'A') and (s[i+1] = 'n') then d:=d+1;
write('Co ',d,' van An');
readln
end.
viết chương trình nhập 1 xâu S từ bàn phím. Thay "g" có trong xâu thành "h". Xuất xâu S ra màn hình.
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau S= '); readln(s);
while pos('g',s)<>0 do
begin
insert('h',s,pos('g',s));
delete(s,pos('g',s),1);
end;
write('S= ',s);
readln
end.
1. Cho xâu S nhập từ bàn phím. Viết chương trình xóa các kí tự dư thừa trong xâu và biến các kí tự trong xâu thành chữ hoa.
2. Cho xâu s nhập từ bàn phím.Định dạng xâu theo kiểu tên người VD Truong Vinh Ky
viết chương tình nhập 1 xâu S từ bàn phím. Tạo xâu S1 gồm 4 phần tử cuối cùng của xâu S, xuất xâu S,S1 ra màn hình.
Program HOC24;
var s,s1: string;
i: byte;
begin
write('Nhap xau S='); readln(s);
writeln('Xau S= ',s);
write('Xau S1= ');
for i:=length(s)-3 to length(s) do write(s[i]);
readln
end.
Viết chương trình nhập vào từ bàn phím 1 xâu S. Xuất ra màn hình: -Xâu S vừa nhập -Cho biết xâu đó có độ dài là bao nhiêu -Trong xâu có bao nhiêu kí tự là khoảng trắng -Trong xâu có bao nhiêu từ
Viết chương trình nhập vào một xâu ký tự S từ bàn phím. Xuất xâu đã nhập. Tạo xâu đảo ngược P từ xâu đã nhập. Xuất xâu P ra màn hình
Use crt;
Var S : String;
P: longint;
Begin
Write('Nhap s: '); readln (S);
For P:=length(S) downto 1 do
Write(P);
Readln;
End.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau ban vua nhap la: ',st);
writeln('Xau nguoc la: ');
for i:=d downto 1 do
write(st[i]:4);
readln;
end.
nhập vào từ bàn phím xâu kí tự S. Cho biết, trong xâu S chữ cái nào xuất hiện nhiều nhất.
viết chương trình nhập từ bàn phím 1 xâu kí tự S đếm số lượng kí tự B trong xâu S ( không phân biệt chữ hoa và chữ thường)
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;
write('Co ',d,' ki tu B trong xau');
readln
end.
viết phương trình nhập vào 1 xâu S từ bàn phím và đưa xâu sau khi đổi kí tự đầu sang in hoa
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau:'); readln(s);
s[1]:=upcase(s[1]);
writeln('Xau sau khi doi la: ',s);
readln;
end.