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

@Викуся) · Регистрация: 16.12.2011

Author24 — интернет-сервис помощи студентам

даны 2 слова.определить можно ли из букв первого из них получить второе.рассмотреть 2 варианта:
1)повторяющиеся буквы второго слова могут в первом слове не повторяться
2)каждая буква второго слова должна входить в первое слово столько же раз сколько и во второе

Добавлено через 14 секунд
булиан не использовать

@Puporev · 09.04.2012, 15:08

1)

Pascal

uses crt;
var s1,s2:string;
    i,k:byte;
begin
clrscr;
writeln('Введите первое слово');
readln(s1);
writeln('Введите второе слово слово');
readln(s2);
k:=0;
for i:=1 to length(s2) do
if pos(s2[i],s1)>0 then k:=k+1;
if k=length(s2)then write('Из букв первого слова можно составить второе')
else write('Из букв первого слова нельзя составить второе');
readln
end.

2)

Pascal

uses crt;
var s1,s2:string;
    k,n:byte;
begin
clrscr;
writeln('Введите первое слово');
readln(s1);
writeln('Введите второе слово слово');
readln(s2);
if length(s1)<>length(s2) then
 begin
  write('Из букв первого слова нельзя составить второе');
  readln;
  exit;
 end;
k:=0;
n:=length(s1);
while pos(s1[1],s2)>0 do
 begin
  delete(s2,pos(s1[1],s2),1);
  delete(s1,1,1);
  k:=k+1;
 end;
if k=n then write('Из букв первого слова можно составить второе')
else write('Из букв первого слова нельзя составить второе');
readln
end.

@Викуся) 2 / 2 / 3 Регистрация: 16.12.2011 Сообщений: 69
		1
	Определить, можно ли из букв первого слова получить второе слово 08.04.2012, 19:44. Показов 8574. Ответов 1 Метки нет (Все метки) даны 2 слова.определить можно ли из букв первого из них получить второе.рассмотреть 2 варианта: 1)повторяющиеся буквы второго слова могут в первом слове не повторяться 2)каждая буква второго слова должна входить в первое слово столько же раз сколько и во второе Добавлено через 14 секунд булиан не использовать 0

	09.04.2012, 15:08

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

Решение