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

Напечатать все буквы, входящие в текст не менее двух раз

14.01.2011, 12:36. Показов 843. Ответов 2
Метки нет (Все метки)

Дан текст из малых латинских букв. Напечатать все буквы, входящие в текст не менее двух раз,
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2011, 12:36
Ответы с готовыми решениями:

Множества: Напечатать все буквы, входящие в текст не менее двух раз
Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в...

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

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

Напечатать в алфавитном порядке все буквы входящие не менее двух раз
дана строка из строчных русских букв за которым следует точка. напечатать в алфавитном порядке все...

2
4 / 6 / 9
Регистрация: 23.03.2010
Сообщений: 77
14.01.2011, 12:53 2
А приведи пример!
0
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,107
14.01.2011, 16:20 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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,j,k,l,f:integer;
    c:char;
begin
writeln('Введите текст маленькими латинскими буквами:');
read(s);
writeln('Буквы, встречающиеся не менее двух раз');
f:=0;
for i:=1 to length(s) do
   begin
     k:=0;
     for j:=1 to length(s) do
     if s[i]=s[j] then k:=k+1;
     if k>1 then
        begin
         f:=1;
         c:=s[i];
         write(c);
        end;
     for l:=length(s) downto 1 do
     if s[l]=c then delete(s,l,1);
   end;
if f=0 then write('Таких букв нет');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2011, 16:20

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

Напечатать в порядке убывания все цифры, входящие в текст не менее двух раз
Ввести текст заканчивающийся точкой. Напечатать в порядке убывания все цифры входящих в текст не...

Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз
Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз.

Напечатать все буквы, входящие в текст не менее двух раз
Дан текст(любой) из строчных латинских букв, за которыми следует точка. Напечатать все буквы,...

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


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

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

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