Автор John Foster задал вопрос в разделе Другие языки и технологии
Помогите написать программу в Pascal ABC. Даны два слова.Можно ли из букв первого слова составить второе. и получил лучший ответ
Ответ от Ra[гуру]
var w1, w2: string; c1, c2: integer; r: boolean; begin write(\'первое слово? \'); readln(w1); write(\'второе слово? \'); readln(w2); for c1 := 1 to length(w2) do begin r := false; for c2 := 1 to length(w2) do if w1[c1] = w2[c2] then r := true; if not r then break; end; writeln(r); end. если можно напечатает true, иначе false
Ответ от Ёелин Дмитрий[гуру]
используй множества, в качестве проверки принадлежность к множеству
используй множества, в качестве проверки принадлежность к множеству
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите написать программу в Pascal ABC. Даны два слова.Можно ли из букв первого слова составить второе.