Инфа 8 класс помогите С клавиатуры вводится строка. Подсчитать сколько раз в ней

Инфа 8 класс помогите С клавиатуры вводится строка. Подсчитать сколько раз в нейвстречается точка.
Гость
Ответ(ы) на вопрос:
Гость
Var s: string;    i, k: integer;begin  writeln('Напишите что-нибудь');  readln(s);  k := 0;  for i := 1 to length(s) do if (s[i] = '.') then inc(k);  write('Количество точек ', k);  readlnend.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы