viet chương trình 1 xâu tối đa 50 kí tự rồi thực hiện những công việc sau hiển thị xâu sau khi đã loại bỏ hết dấu cách
2 câu trả lời
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=' ' then st[i]:='_';
writeln('Xau sau khi thay doi la: ',st);
readln;
uses crt;
var s : string; i : byte;
begin
clrscr;
write('Nhap xau : '); readln(s);
i := 1; while i <= length(s) do
if s[i] = ' ' then begin delete(s, i, 1);
i := i end else i := i + 1;
write('S = ', s);
readln
end.
Câu hỏi trong lớp
Xem thêm
