Инфа 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
