viết chương trình nhập vào 1 xâu, sau đó loại bỏ cách kí tự khoảng trắng bằng thao tác ghép xâu rồi in ra màn hình
2 câu trả lời
program Tin_hoc;
uses crt;
var i:integer;
s1,s2:string;
begin
clrscr;
writeln('Nhap xau:');readln(s1);
s2:='';
for i:= 1 to length(s1) do if ord(s1[i]) <> 32 then s2:=s2+s1[i];
writeln('Xau da loai bo dau cach la:');writeln(s2);
readln;
end.
Program oken;
uses crt;
var xau : string;
i : longint;
begin
clrscr;
write ('Nhap vao 1 xau: '); readln (xau);
for i:=1 to length(xau) do
if (xau[i] <> ' ') and (xau[i + 1] = ' ') then delete(xau, i+1, 1);
writeln(xau);
readln;
end.
Câu hỏi trong lớp
Xem thêm
