Program p1; var s:string; i,z:integer; begin write('Введи текст: '); readln(s); for i:=1 to length(s) do begin if (s[i]='й') or (s[i]='Й') then z:=z+1; end; writeln('Букв "й" в тексте ',z,' штук'); end.
Вообще есть ряд запрещённых символов, которые не должны быть в имени файла в Windows - это: \ - разделитель подкаталогов / - разделитель ключей командного интерпретатора : - отделяет букву диска или имя альтернативного потока данных * - заменяющий символ (маска "любое количество любых символов") ? - заменяющий символ (маска "один любой символ") " - используется для указания путей, содержащих пробелы < - перенаправление ввода > - перенаправление вывода | - обозначает конвейер
В некоторых UNIX и UNIX-подобных ОС запрещен slash (/) - разделитель подкаталогов - и символ конца строки (\0). Перечисленные выше символы (кроме slash) использовать можно, но из соображений совместимости их лучше избегать.
var s:string;
i,z:integer;
begin
write('Введи текст: ');
readln(s);
for i:=1 to length(s) do
begin
if (s[i]='й') or (s[i]='Й') then
z:=z+1;
end;
writeln('Букв "й" в тексте ',z,' штук');
end.