Viết chươn trình nhập vào từ bàn phím 1 xâu kí tự bất kì ( độ dài<=50). Sau đó nhập từ bàn phím 1 kí tự bất kì xuất ra xem kí tự đó có xuất hiện trong xâu không . Xuất ra màn hình kí tự đó
Viết chươn trình nhập vào từ bàn phím 1 xâu kí tự bất kì ( độ dài<=50). Sau đó nhập từ bàn phím 1 kí tự bất kì xuất ra xem kí tự đó có xuất hiện trong xâu không . Xuất ra màn hình kí tự đó
uses crt;
var s : char; d : boolean;
st : string;
i : integer;
begin d:=false;
write(‘Nhap xau:’); readln(st);
write(‘Nhap ki tu :’); readln(s);
for i:=1 to length(st) do if st[i]=s then d:=true ;
if d=true then begin writeln(‘Co xuat hien’); writeln(s);
end else write(‘Khong xuat hien’);
readln
end.
Bài của mình không giống như yêu cầu nhưng cũng tựa tựa như vậy bạn tham khảo nhaa.