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.
viết chương trình nhập 1 xâu S.Tạo xâu S1 gồm 4 phần tử đầu tiên của xâu S.Xuất S,S1 ra màn hình.
uses crt;
var s,s1:string;
i:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
s1:=#32;
for i:=1 to 4 do
s1:=s1+s[i];
writeln(s1);
readln;
end.
b1: nhập 1 dãy a từ bàn phím . tính tổng các giá trj của dãy a.
b2 : cho 2 xâu s1 và s2, viết đoạn chương trình chèn xâu s1 vào giữa s2, tại vị trí len(s2)\\2. in kết quả ra màn hình
b3: cho xâu s, viết đoạn lệnh trích ra xâu con của s bao gồm 3 ks tự đầu tiên của s
b4 ; viết chương trình kiểm tra xâu s có chứa chữ số không. thông báo " s có chứa chữ số" hoặc " s kh chứa chữ số nào "
help me, ty 3>
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.
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.
viết chương trình nhập vào xâu S. In ra màn hình xâu S1 là xâu đảo ngược của xâu S gồm các kí tự được in hoa
Program HOC24;
var s1,s2: string;
i: byte;
begin
write('Nhap xau S: '); readln(s);
s1:=''
for i:= length(s) downto 1 do
if s[i] in ['A'..'Z'] then s1:=s1+s[i];
write('Xau S1 : ',s1);
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 S có độ dài không quá 125 ký tự từ bàn phím. Xuất xâu đã nhập. Thực hiện xóa hết các dấu cách có trong xâu S. Xuất xâu S đã xóa các dấu cách ra màn hình
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln('Xau moi la: ',st);
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
Viết chương trình nhập từ bàn phím xâu kí tự S ( tối đa 100 ký tự ). Hãy tạo và xuất ra màn hình xâu S tổng là chữ in hoa. Ví dụ S='tran van kiet' xuất ra S='TRAN VAN KIẾT.
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
readln;
end.