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

@Levonchik · Регистрация: 09.10.2012

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

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

@Puporev · 03.05.2013, 12:41

Pascal

uses crt;
var a,b:string;
    n,i:byte;
    f:boolean;
begin
write('Ââåäèòå ïåðâîå ñëîâî: ');
read(a);
write('Ââåäèòå âòîðîå ñëîâî: ');
read(b);
n:=length(b);
i:=1;
f:=true;
while (i<=n)and f do
if pos(b[i],a)=0 then f:=false
else
 begin
  delete(a,pos(b[i],a),1);
  i:=i+1
 end;
if f then write('Èç áóêâ ñëîâà À ìîæíî ñîñòàâèòü ñëîâî Â')
else write('Èç áóêâ ñëîâà À íåëüçÿ ñîñòàâèòü ñëîâî Â')
end.

@Levonchik 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 44
		1
	Строка: Составить программу,определяющую можно ли из букв слова А составить слово В. 03.05.2013, 12:02. Показов 3899. Ответов 1 Метки нет (Все метки) Даны два слова.Составить программу,определяющую можно или нет из букв слова А составить слово В. 0

	03.05.2013, 12:41

Опции темы

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

Решение