Урок 17 Задача 1
Primary tabs
Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.
var s: string; i, n: integer; begin writeln('Введите произвольную строку:'); readln(s); n := 0; for i:=1 to length(s) do // обходим символы строки begin if (s[i] = 'k') then // сравниваем очередной символ строки с литералом n := n + 1; end; writeln('Ответ: символ "k" встречается ',n, ' раз(a)'); readln(); end.
Вывод в консоли:
Введите произвольную строку: asfksdgk Ответ: символ "k" встречается 2 раз(a)
- Log in to post comments
- 210 reads