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

atimaus123 atimaus123    3   21.07.2019 21:40    2

Ответы
кика20051 кика20051  03.10.2020 09:58
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика