Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
1

Подсчитать в строке сколько букв A и B,если букв A больше, чем B,то удалить в строке все символы B.

08.07.2012, 20:38. Просмотров 1015. Ответов 1
Метки нет (Все метки)


Подсчитать в строке сколько букв A и B,если букв A больше, чем B,то удалить в строке все символы B.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2012, 20:38
Ответы с готовыми решениями:

Подсчитать в строке число букв А и В, если букв А больше, чем В, то удалить все символы В
работа с текстом подсчитать в строке число букв А и В, если букв А больше, чем В,то удалить в...

Подсчитать в строке число букв А и В, если букв А больше, чем В, то удалить в строке все символы В
Помогите пожалуйста! Нужно подсчитать в строке число букв А и В, если букв А больше, чем В, то...

Подсчитать в строке число букв А и В, если букв А больше, чем В, то удалить в строке все символы В
Здравствуйте, помогите пожалуйста решить задачу с помощью процедур "Подсчитать в строке число букв...

Подсчитать в строке число букв А и В, если букв А больше, чем В, то удалить в строке все символы В
помогите! Подсчитать в строке число букв А и В, если букв А больше, чем В, то удалить в строке все...

1
191 / 127 / 52
Регистрация: 19.01.2010
Сообщений: 518
08.07.2012, 21:32 2
Лучший ответ Сообщение было отмечено Эльман как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var str: string;
    i, a, b: integer;
begin
 write('Vvedite ishodnuy stroku: '); readln(str);
 a:=0;
 b:=0;
 for i:=1 to length(str) do
   if Copy(str,i,1)='A' then a:=a+1;
   else if Copy(str,i,1)='B' then b:=b+1;
 
 writeln('V stroke: ' +str);
 writeln('kol-vo simvolov A = ', a);
 writeln('kol-vo simvolov B = ', b);
 
 if (a>b) then
  for i:=1 to length(str) do
    if Copy(str,i,1)='B' then Delete(str,i,1);
 
 writeln(str);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.07.2012, 21:32

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Подсчитать в строке число букв a и b, если букв а больше b, то удалить в строке все символы b
Помогите, пожалуйста, сделать задачу: Подсчитать в строке число букв a и b, если букв а больше b,...

Если в строке количество пробелов больше, чем букв «а», то удалить каждый второй встречающийся пробел
Создать функцию программиста, которая подсчитывает в заданной строке количество заданных символов...

Если в строке количество пробелов больше, чем букв «а», то удалить каждый второй встречающийся пробел
Создать функцию программиста, которая подсчитывает в заданной строке количество заданных символов...

В заданной строке подсчитать каких букв «а» или «я» больше и на сколько (строка вводится с клавиатуры)
В заданной строке подсчитать каких букв «а» или «я» больше и на сколько (строка вводится с...


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

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

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