Nhập họ tên của mình vào một xâu. Viết chương trình xóa n kí tự của xâu vừa nhập
NC
Những câu hỏi liên quan
1.Hãy viết chương trình nhập vào 1 xâu kí tự là Hoten của em rồi hãy tạo ra 1 xâu mới được COPY từ Họ trong xâu Họ tên vừa nhập. In ra xâu kết quả
CÁC BẠN GIÚP MÌNH MÌNH SẮP THI RỒI I!!!
Hãy viết chương trình nhập vào 1 xâu kí tự là Hoten của em rồi hãy tạo ra 1 xâu mới được CHÈN từ Họ trong xâu Họ tên vừa nhập. In ra xâu kết quả
CÁC BẠN GIÚP MÌNH SẮP THI RỒIIII
Viết chương trình nhập vào 2 xâu kí tự. Xâu thứ nhất là họ đệm, xâu thứ 2 là tên của 1 người.Đưa ra màn hình tên đầy đủ của người đó.
program ct;
uses crt;
var
s1,s2:string;
begin
clrscr;
write('nhap ho dem: ');
readln(s1);
write('nhap ten: ');
readln(s2);
writeln('ten day du la: ',s1,' ',s2);
readln;
end.
Đúng 2
Bình luận (0)
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
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
Bài tập 2:Viết chương trình nhập một xâu từ bàn phím. Đếm số kí tự là chữ số chữ cái trong xâu vừa nhập và in ra màn hình. Xóa các chữ số kh xâu vừa nhập
2:
uses crt;
var st:string;
d,i,dem1,dem2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem1:=0;
dem2:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1);
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);
end;
writeln('So ki tu la chu so la: ',dem1);
writeln('So ki tu la chu cai la: ',dem2);
for i:=1 to d do
if st[i] in ['0'..'9'] then delete(st,i,1);
writeln('Xau sau khi xoa cac chu so la: ',st);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập vào một xâu hiển thị lên màn hình một xâu sau khi đã xóa xâu ở vị trí số 3 xóa 4 kí tự .
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau st:'); readln(st);
delete(st,3,4);
writeln('Xau sau khi xoa la: ',st);
readln;
end.
Đúng 0
Bình luận (0)
Giải giúp mình nhéTạo file mang tên BAI2.pas Viết chương trình nhập vào một xâu kí tự A.a) In xâu A ra màn hình.b) Cho biết có bao nhiêu từ trong xâu A.c) Nhập vào xâu kí tự B, cho biết xâu B xuất hiện bao nhiêu lần trong xâu A.
Đọc tiếp
Giải giúp mình nhé
Tạo file mang tên BAI2.pas
Viết chương trình nhập vào một xâu kí tự A.
a) In xâu A ra màn hình.
b) Cho biết có bao nhiêu từ trong xâu A.
c) Nhập vào xâu kí tự B, cho biết xâu B xuất hiện bao nhiêu lần trong xâu A.
Nhập vào 1 xâu kí tự từ bàn phím . Viết chương trình xóa kí tự là chữ có trong xâu
tham khảo
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (not (st[i] in ['A'..'Z'])) and (not (st[i] in ['a'..'z'])) then write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
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