uses crt; var s:string; i,dem:integer; begin write(‘nhap 1 xau bat ky: ‘); readln(s); write(‘ky tu dau tien trong xau la: ‘); for i:=1 to length(s) do if (‘A'<=s[i]) and (‘z’>=s[i]) then begin write(s[i]); dem:=dem+1; if dem=1 then break; end; readln; end.
uses crt; var s:string; i,dem:byte; begin write('Nhap xau: '); readln(s); writeln; write('Ky tu dau tien la: '); for i:=1 to length(s) do if ('A'<=s[i]) and ('z'>=s[i]) then begin write(s[i]); inc(dem); if dem=1 then break; end; readln end.
