Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thiên Thiên
Viết chương trình nhập vào 1 xâu kí tự ( độ dài ko quá 100) và 1 kí tự bất kì từ bàn phím .Thông báo xem kí tự đó có xuất hiện trong xâu kí tự vừa nhập hay ko?
Minh Lệ
16 tháng 3 2021 lúc 21:37

Program HOC24;

var s: string;

x: char;

d: byte;

begin

write('Nhap xau: '); readln(s);

write('Nhap ki tu: '); readln(x);

d:=0;

for i:=1 to length(s) do if s[i]=x then d:=d+1;

if d=0 then write('Ki tu do khong xuat hien trong xau') else write('Ki tu do xuat hien trong xau');

readln

end.


Các câu hỏi tương tự
Thanh Nhi Phạm
Xem chi tiết
Tiên Tiên
Xem chi tiết
Nguyễn Thị Diễm Hạnh
Xem chi tiết
Phương Vũ Hà
Xem chi tiết
Duy Nguyễn
Xem chi tiết
no no
Xem chi tiết
no no
Xem chi tiết
Lê Hoa
Xem chi tiết
Thangg PH
Xem chi tiết