Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Predgornoe
1 / 1 / 2
Регистрация: 22.04.2012
Сообщений: 107
1

Выяснить, чего чего в файле больше: русских букв или цифр

04.09.2012, 19:56. Просмотров 687. Ответов 1
Метки нет (Все метки)

Помогите решить плизз..

Дан файл, содержащий произвольный текст. Выяснить, чего чего в нём больше: русских букв или цифр.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.09.2012, 19:56
Ответы с готовыми решениями:

Выяснить, чего в тексте больше: русских букв или цифр?
Дана строка, содержащая произвольный текст. Выяснить, чего в нем больше: русских букв или цифр?

Файл: выяснить, чего в нем больше: русских букв или цифр
Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр ...

Выяснить, чего в тексте файла больше: русских букв или цифр
17 Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр.

Текстовый файл. Выяснить, чего в нем больше: русских букв или цифр
Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр

Дана строка. Выяснить, чего в нем больше: русских букв или цифр
Здравствуйте, буду очень благодарна если поможете)))) :) 1) Дана строка. Удалить из строки все...

1
CodeR
Фрилансер
3386 / 2787 / 3000
Регистрация: 08.02.2012
Сообщений: 7,039
Записей в блоге: 1
04.09.2012, 20:06 2
Лучший ответ Сообщение было отмечено Predgornoe как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var f:text;
    i,j,k:byte;
    s:string;
Begin
    Assign(f,'in.txt');Reset(f);
    k:=0;j:=0;
    While not Eof(f) do
     Begin
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i] in ['а'..'я','А'..'Я'] then inc(j)
        else if s[i] in ['0'..'9'] then inc(k);
     End;
    if j>k then writeln('Русских букв больше ','их: ',j)
     else if j<k then writeln('Цифр букв больше ','их: ',k) 
      else writeln('Равное кол-во');
    Clsoe(f);
End.
Создаешь файл 'in.txt' и заполняешь в папке с программой
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.09.2012, 20:06

Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр
Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр

Файл. Выяснить, чего в нем больше: букв или цифр
Помогите решить завтра сдавать не получаетсь 2 дня уже сижу Задача: Дан файл, содержащий...

дан произвольный текст, чего в нем больше: букв или цифр
( буквы латинские)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru