Quảng cáo
1 câu trả lời 112
Lời giải:
program khong_phai_cach;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to n do
if s[i]<>' ' then d:=d+1;
write('Co ',d,' ki tu khong phai dau cach');
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149346 -
Đã trả lời bởi chuyên gia
99768 -
Đã trả lời bởi chuyên gia
97375 -
Đã trả lời bởi chuyên gia
80043 -
Đã trả lời bởi chuyên gia
72882 -
Đã trả lời bởi chuyên gia
55970 -
Đã trả lời bởi chuyên gia
55345
Gửi báo cáo thành công!
