Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Thesotsky
0 / 0 / 0
Регистрация: 20.12.2013
Сообщений: 10
1

Составьте программу,проверяющую,можно ли из букв,входящи в слово Х,составить слово У

25.12.2013, 23:39. Просмотров 707. Ответов 1
Метки нет (Все метки)

Составьте программу,проверяющую,можно ли из букв,входящи в слово Х,составить слово У(Буквы можно переставлять,но каждую букву можно использовать не более одного раза)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2013, 23:39
Ответы с готовыми решениями:

Строка: Составить программу,определяющую можно ли из букв слова А составить слово В.
Даны два слова.Составить программу,определяющую можно или нет из букв слова А...

Можно ли из данных букв составить данное слово S
решите задачки на паскале: 2.Двумерный массив nm содержит некоторые буквы...

Записать программу выясняющую, можно ли из слова Х составить слово У
Записать программу выясняющую, можно ли из слова Х составить слово У.

Дано ошибочно написанное слово «килбайот». Путем перемещения его букв получить слово «килобайт»
Дано ошибочно написанное слово «килбайот». Путем перемещения его букв получить...

Составьте программу, печатающую слово в обратном порядке
Составьте программу, печатающую слово в обратном порядке.

1
frutka
11 / 11 / 21
Регистрация: 06.12.2013
Сообщений: 27
26.12.2013, 19:30 2
Лучший ответ Сообщение было отмечено Thesotsky как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
 x,y,s:string;
 i,j:integer;
begin
 readln(x);
 readln(y);
 for i:=1 to length(y) do begin
  j:=1;
  while (j<=length(x)) and (y[i]<>x[j]) do
   inc(j);
  if length(x)>0 then if y[i]=x[j] then begin
   s:=s+x[j];
   delete(x, j, 1);
  end;
 end;
 writeln;
 if s=y then begin
  writeln(s);
  writeln(y);
 end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2013, 19:30

Составьте программу, в которой необходимо отгадать зашифрованное слово
Составьте программу, в которой необходимо отгадать зашифрованное слово...

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

Составить список букв которыми заканчиваются каждое слово. (20 слов)
Составить список букв которыми заканчиваются каждое слово. (20 слов).


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

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

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