Инфа 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.
Не нашли ответ?
Похожие вопросы