0 / 0 / 0
Регистрация: 30.12.2015
Сообщений: 1
1

Для каждой буквы первого слова определить, входит ли она во второе слово

30.12.2015, 08:10. Показов 3451. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны два слова. Для каждой буквы первого слова (в том числе и для повторяющихся в
этом слове букв) определить, входит ли она во второе слово. Например, если заданные
слова «информация» и «процессор», то для букв первого из них ответом должно быть:
«нет нет нет да нет нет да нет нет».
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2015, 08:10
Ответы с готовыми решениями:

Строки. Для каждого слова первого предложения определить, входит ли оно во второе
даны 2 предложения.для каждого слова первого предложения(в том числе для повторяющихся...

Определить, можно ли из букв первого слова получить второе слово
даны 2 слова.определить можно ли из букв первого из них получить второе.рассмотреть 2 варианта:...

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

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

4
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
30.12.2015, 11:28 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Цитата Сообщение от playandplay Посмотреть сообщение
ответом должно быть:
«нет нет нет да нет нет да нет нет».
Фигвам...
нет нет нет да да нет нет да нет нет
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var s1,s2:string;
    i:byte;
begin
writeln('Введите первое слово');
readln(s1);
writeln('Введите второе слово');
readln(s2);
for i:=1 to length(s1) do
if pos(s1[i],s2)>0 then
 begin
  write(' да');
  delete(s2,pos(s1[i],s2),1);
 end
else write(' нет');
end.
1
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
31.12.2015, 19:00 3
Конечно извиняюсь, но работает и без удаления:
Pascal
1
2
3
4
5
6
7
8
9
10
11
program z1628939;
var s1,s2:string;
    i:byte;
begin
 write('Введите первое слово ');readln(s1);
 write('Введите второе слово ');readln(s2);
 for i:=1 to length(s1) do
 if pos(s1[i],s2)>0
  then write(' да')
  else write(' нет');
end.
0
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
31.12.2015, 19:04 4
Цитата Сообщение от schoolteacher Посмотреть сообщение
но работает и без удаления:
Это если не читать внимательно условие и отключить остатки мозга.
Цитата Сообщение от playandplay Посмотреть сообщение
(в том числе и для повторяющихся в
этом слове букв
Например 1 слово ванна 2 слово ваня.
По Вашему ответ да да да да да
а правильно да да да нет нет
0
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
31.12.2015, 19:38 5
Возможно я и не прав, но про повторение букв во втором слове в задании явно не сказано, хотя может оно и подразумевается.
0
31.12.2015, 19:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.12.2015, 19:38
Помогаю со студенческими работами здесь

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

Для каждой буквы первого слова определить, входит ли она во второе слово
Даны 2 слова. Для каждой буквы первого слово определить входит ли она во второе слово....

Для каждой буквы первого слова определить, входит ли она во второе слово
Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово....

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru