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

Подсчитать количество цифр "5", "6" и "7" (в отдельности) содержащихся в данной строке

19.04.2012, 00:30. Показов 1119. Ответов 1
Метки нет (Все метки)

Составить алгоритм и программу обработки введенной с клавиатуры строки с использованием стандартных функций и продседур работы со строками
Подсчитать количество цифр "5", "6" и "7" (в отдельности) содержащихся в данной строке. Дополнить строку этими цифрами так, чтобы их количество стало равным.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2012, 00:30
Ответы с готовыми решениями:

Подсчитать количество букв "й", "ы" и "я", содержащихся в заданной строке.
нужна помощь, помогите пожалуйста: Подсчитать количество букв "й", "ы" и "я" (в отдельности),...

Подсчитать количество предложений в строке, чтобы они начинались с заглавной буквы и заканчивались"." "?" "!"
Буду очень благодарен

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф". 2) Вывести...

Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который"
1) Составить фразу "текстовый редактор" из слов "тесто", "редакция", "мотор", "который".

1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.04.2012, 01:26 2
Лучший ответ Сообщение было отмечено petyshki как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var s: string;
    i,k5,k6,k7,kmax: byte;
begin
write('s='); readln(s);
for i:=1 to length(s) do
    begin
    if s[i]='5' then inc(k5);
    if s[i]='6' then inc(k6);
    if s[i]='7' then inc(k7);
    if (k5>k6) and (k5>k7) then kmax:=k5 else
       if (k6>k7) then kmax:=k6 else kmax:=k7;
    end;
for i:=1 to kmax-k5 do
    s:=s+'5';
for i:=1 to kmax-k6 do
    s:=s+'6';
for i:=1 to kmax-k7 do
    s:=s+'7';
writeln('Количество "5"=',k5);
writeln('Количество "6"=',k6);
writeln('Количество "7"=',k7);
write('s=',s);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2012, 01:26

Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус", "измерение"
Составить фразу "программное обеспечение" из слов "программист", "оборот", "анчоус",...

Заменить символы "1", "2", "3" словами "один", "два", "три"
Дана строка символов. Заменить символы "1", "2", "3" словами "один", "два", "три". Оформить в...

Подсчитать количество сдвоенных символов "сс" "нн" "лл" в введенном тексте
Подсчитать количество сдвоенных символов "сс" "нн" "лл" в веденном тексе Именно этих символов !!!!

Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет"
Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла...


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

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

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