Проверка возможности

@SSFox · Регистрация: 18.09.2009

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

Помогите составить программу!!!!
1) Программа должна определять можно ли с букв введеного слова Х составить слово Т.
Зарание благодарен.

@TAVulator · 10.10.2009, 23:12

Pascal

var
 X,T: string;
Begin
 write('X: ');
 Readln(X);
 write('T: ');
 Readln(T);
 While T<>'' do
  Begin
   If pos(T[1],X)=0 then break;
   delete(T,1,1);
  End;
 If T='' then writeln('можно')
        else writeln('нельзя');
End.

@DannerDOS · 10.10.2009, 23:15

Pascal

Uses CRT;
Var
  i, j : Integer;
  s1, s2 : String[255];
  b : Boolean;
Begin
  ClrScr;
  Write('Enter 1 word: ');
  Readln(s1);
  Write('Enter 2 word: ');
  Readln(s1);
  If Length(s1) = Length(s1) then
    For i := 1 to Length(s1) do
      For j := 1 to Length(s1) do begin
        If s1[i] = s2[j] then begin
          Delete(s1, i, 1);
          Delete(s2, j, 1);
          b := True;
          break;
        end;
      end
  else b := False;
  If b = True then Writeln('Yes') else Writeln('No');
End.

@SSFox 0 / 0 / 0 Регистрация: 18.09.2009 Сообщений: 11
		1
	Проверка возможности 10.10.2009, 22:54. Показов 1061. Ответов 2 Метки нет (Все метки) Помогите составить программу!!!! 1) Программа должна определять можно ли с букв введеного слова Х составить слово Т. Зарание благодарен. 0

	10.10.2009, 23:15

Проверка возможности

Решение