Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 19.05.2015
Сообщений: 16
1

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

28.05.2015, 16:13. Просмотров 627. Ответов 1
Метки нет (Все метки)


3. Дан текст из строчных латинских букв, за которым следует точка. Напечатать: все буквы, входящие в текст не менее двух раз; все буквы, входящие в текст по одному разу.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2015, 16:13
Ответы с готовыми решениями:

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

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

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

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

1
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
28.05.2015, 16:51 2
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
var s:string;
    i:integer;
    c:char;
    m,m1,m2:set of char;
begin
readln(s);//ввод строки по условию
m1:=[];
m2:=[];
for i:=1 to length(s) do
 begin
  if s[i]<>'.' then //если не точка
   begin
    if not(s[i] in m1) then m1:=m1+[s[i]]//если нет в 1 множестве, добавим
    else m2:=m2+[s[i]]; //иначе добавим в 2
   end;
 end;
m:=m1-m2;//удалим из 1 которые 2 и более раз
writeln('Входят не менее 2 раз');
for c:='a' to 'z' do
if c in m2 then write(c);
writeln;
writeln('Входят по 1 разу');
for c:='a' to 'z' do
if c in m then write(c);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.05.2015, 16:51

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

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

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

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

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


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

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

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