Viết chương trình nhập vào 1 xâu , xuất ra màn hình xâu đó nếu chứa kí tự ‘ a ‘
Trong hình ảnh là câu 3
Mng giúp em câu hỏi này với em đang làm kiểm tra
program xau; uses crt; var i,d:integer; s:string; BEGIN clrscr; write('Nhap xau:'); readln(s); d:=0; for i:=1 to length(s) do if (s[i]='a') then d:=d+1; if d<>0 then writeln(s) else write('Xau vua nhap khong co ki tu a'); readln END.
Program FNG; Uses crt; Var St: String; i,d: longint; Begin Clrscr; Write('Nhap St: '); Readln(St); d:=0; For i:=1 to length(St) do If St[i]='a' then Begin Writeln(St); inc(d); Break; End; If d=0 then Write('Khong co'); Readln End.