program Test;
const
L = ['а'..'я', 'А'..'Я'];
N = ['0'..'9'];
var
f: Text;
s: AnsiString;
cl, cn, i: Integer;
begin
Assign (f, 'text.txt'); // здесь название файла
Reset (f);
cl := 0;
cn := 0;
while not Eof (f) do begin
ReadLn (f, s);
for i := 1 to Length (s) do begin
if s [i] in L then
Inc (cl)
else if s [i] in N then
Inc (cn);
end;
end;
Close (f);
WriteLn ('Русских букв: ', cl);
WriteLn ('Цифр: ', cn);
ReadLn;
end.
Объяснение:
текстовый файл должен находиться в папке с программой, иначе укажите полный путь к нему. Кодировка файла ANSI - кириллица 1251 или OEM -русский 866.
Полная.
"У школы №3 1 сентября в 10:00 будет проведена линейка"
Полезная.
Состав принимаемого лекарства.
Формулы по физике во время экзамена.
Актуальная.
Курс валюты.
Погода на улице, когда вы выходите из дома.
Достоверная.
"Россия выиграла у Испании на ЧМ за счет пенальти."
Данные, записанные в документах.
Точная.
"Земля - шарообразная"
Понятная.
"Завтра на улице вас встретит сильный дождь" (вместо - "Ожидаются 50 мм осадков за 12 ч." )
Объективная.
"Высота этой скалы 100 м." (вместо "Скала довольно высокая").