Thảoo Nguyênn
Hỏi từ APP VIETJACK
viết chương trình pascal theo yêu cầu sau: Cho xâu s nhập từ bàn phím. Đếm có bao nhiêu ký tự lớn hơn 2 liền kề trong xâu và xuất chúng ra màn hình
Quảng cáo
1 câu trả lời 361
Chương trình Pascal để đếm số ký tự lớn hơn 2 liền kề trong một xâu được nhập từ bàn phím và xuất chúng ra màn hình như sau:
```
program CountAdjacentChars;
var
s: string;
count: integer;
i: integer;
begin
count := 0;
write('Nhap xau s: ');
readln(s);
for i := 1 to length(s) - 2 do
begin
if (s[i] > s[i+1]) and (s[i+1] > s[i+2]) then
begin
writeln(s[i], s[i+1], s[i+2]);
count := count + 1;
end;
end;
writeln('So ky tu *** hon 2 lien ke trong xau la: ', count);
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
86382
Gửi báo cáo thành công!
