Задача є досить простою і її розв’язок не становить труднощів. Єдине, що потрібно пам’ятати, так це те, що для комп’ютера є принципово важливим той факт, у якому алфавіті вводились всі літери. Тобто і у реченні і в зразку, розглядувана літера повинні вводитись в одному алфавіті. Крім того, великі і маленькі літери також є різними літерами. Ми будемо для простоти вважати, що всі літери вводяться в одному алфавіті (наприклад, українському) і маленькими літерами. Випадок використання різних алфавітів рекомендуємо розв’язати самостійно.
program kolbukw;
var St : string; { Для вводу речення }
obrazec : char; { Для вводу зразку літери }
i, kol : byte;
{ i – для циклу, kol – для кількості введеної літери }
begin
write('Введiть речення: ');
readln(St);
write('Яку лiтеру пiдраховувати: ');
readln(obrazec);
kol := 0;
for i := 1 to length(St) do
if St[i] = obrazec then inc(kol);
writeln('Шуканих лiтер в текстi -> ',kol);
readln
end.
Немає коментарів:
Дописати коментар