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

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

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

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

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

Можно ли из данных букв составить данное слово 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 слов).

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

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


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

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

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