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 rồi ( sử dụng thao tác ghép xâu , coppy ) 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 FNG;
Uses crt;
Var St,S: String;
i: longint;
Begin
Clrscr;
Write('Nhap St: '); Readln(St);
s:='';
For i:=1 to length(St) do
If St[i]<>#32 then s:=s+St[i];
Write('St = ',s);
Readln
End.
Câu hỏi trong lớp
Xem thêm
