Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Elserjo
11 / 11 / 0
Регистрация: 20.11.2012
Сообщений: 149
1

Дано предложение. В нем только два слова одинаковые

20.11.2012, 18:26. Просмотров 961. Ответов 2
Метки нет (Все метки)

Дано предложение. В нем только два слова одинаковые. Найти эти слова.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2012, 18:26
Ответы с готовыми решениями:

Дано предложение. Дано предложение.Определить, есть ли в нем буквосочетания чу или щу
1)Дано предложение.Определить, есть ли в нем буквосочетания чу или щу.В случае...

Дано предложение. Необходимо определить в нем позицию последнего появления заданного слова
Ребята помогите решить задачу. Дано предложение. Необходимо определить в нем...

Дано предложение.Определить число букв о в нем.
1)Дано предложение.Определить число букв о в нем. 2)Дан массив целых...

Дано предложение. Определить число пробелов в нем
не могу составить программу в турбо паскале Дано предложение. Определить...

Дано предложение. Определить, есть ли буква а в нем
Дано предложение. Определить, есть ли буква а в нем. В случае положительного...

2
pryda
Неадекват и грубиян
291 / 285 / 294
Регистрация: 22.02.2010
Сообщений: 627
20.11.2012, 18:47 2
Лучший ответ Сообщение было отмечено Elserjo как решение

Решение

если слова разделены только пробелом
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var mas:array[1..10]of string;
    i,j,k:integer; w,s:string;
begin
writeln('Введите строку');
readln(s);
k:=0; s:=s+' ';
for i:=1 to length(s) do
if s[i]<>' ' then w:=w+s[i] else
begin
  inc(k); mas[k]:=w; w:='';
end;
for i:=1 to k do
begin
  for j:=1 to k do
  if (i<>j)and(mas[i]=mas[j]) then
  begin
    writeln('Повторяющееся слово: ',mas[i]);
    s:='1';
    break;
  end;
  if s='1' then break;
end;
end.
1
Elserjo
11 / 11 / 0
Регистрация: 20.11.2012
Сообщений: 149
20.11.2012, 18:51  [ТС] 3
спасибо вам!


 Комментарий модератора 
Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2012, 18:51

Дано предложение подсчитать сколько в нем символов ';' ':' '-' ',' и слов
Дано предложение подсчитать сколько в нем символов ';' ':' '-' ',' и слов.

Дано предложение. Заменить в нем все вхождения буквосочетания про на нет
Дано Предложение. Заменить в нем все вхождения буквосочетания про на нет!

Дано предложение. В нем ошибочно набраны лишние знаки (цифры), удалить их
Задача: Дано предложение. В нем ошибочно набраны лишние знаки (цифры), удалить...


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

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

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