Дан произвольный текст. подсчитать, чего в нем больше - букв или цифр? ​pascal abc. ,

Ryddy Ryddy    3   23.10.2019 12:55    2

Ответы
Deloroza Deloroza  10.10.2020 09:03

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.

ПОКАЗАТЬ ОТВЕТЫ
rast2k17 rast2k17  10.10.2020 09:03

Ну вы посмотрите если цифры написаны буквами значет букав больше . А если там очень много цифр тогда цифер если они не буквами написаны.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика