Viết chương trình nhập vào một xâu bất kỳ Nhap kí tự k dem và in ra màn hình số lần xuất hiện của k
|
Bài 1: program oken;uses crt;var s: string; k: char; dem,i: byte;begin clrscr; write('Nhap 1 xau: '); readln(s); write('Nhap 1 ki tu k: '); readln(k); dem:=0; for i:=1 to length(s) do if k=s[i] then dem:=dem+1; writeln('So ki tu la ',k,' co trong xau: ',dem); readln; end. Bài 2: program oken;uses crt;var s1,s2: string;begin clrscr; write('Nhap xau thu 1: '); readln(s1); write('Nhap xau thu 2: '); readln(s2); if s1[2]=s2[length(s2)] then writeln('2 ki tu trung nhau: ',s1[2]) else writeln('2 ki tu khong trung nhau'); readln; end. Bài 3: program oken;uses crt;var s: string; i,dem: byte;begin clrscr; write('Nhap xau: '); readln(s); dem:=0; for i:=1 to length(s) do if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then dem:=dem+1; writeln('So tu co trong xau: ',dem); readln; end.  2 trả lời Ví dụ về hoạt động lặp ở thực tế (Tin học - Lớp 8) 2 trả lời Cách nào để kết nói bàn phím với bluestacks? (Tin học - Lớp 6) 2 trả lời Trình bày trang văn bản là gì? (Tin học - Lớp 6) 1 trả lời Nêu cách chọn hướng trang và đặt lề trang (Tin học - Lớp 6) 1 trả lời Cú pháp câu lệnh while... là (Tin học - Lớp 8) 1 trả lời Vòng lặp for... là vòng lặp (Tin học - Lớp 8) 1 trả lời Viết chương trình nhập một xâu S từ bàn phím. Nhập một kí tự bất kì và đếm số lần xuất hiện của kí tự đó trong xâu |
