KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var s,k:string;i:integer; begin clrscr; writeln(‘nhap s: ‘);readln(s); writeln(‘nhap k: ‘);readln(k); for i := 0 to length(s) do if k = s[i] then begin write(length(s[i])); end; readln; end.
program vitri;
uses crt;
var st:string;
k:char;
i:byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(st);
write(‘Nhap ki tu k: ‘); readln(k);
writeln(‘Vi tri xuat hien la:’);
for i:=1 to length(st) do
if st[i]=k then write(i:4);
readln
end.
uses crt;
var s,k:string;i:integer;
begin
clrscr;
writeln(‘nhap s: ‘);readln(s);
writeln(‘nhap k: ‘);readln(k);
for i := 0 to length(s) do
if k = s[i] then
begin
write(length(s[i]));
end;
readln;
end.
Bạn coi tham khảo.
@danhle