Prime : = { получаем первое слово из последовательности } ; while { не конец последовательности (не известно от куда аффтар получает слова ) } do begin slovo : = { получаем очередное слово последовательности } ; if length(slovo) < = length(prime) then begin copyprime : = prime; n : = 1; while (n < = length(slovo)) and (pos(slovo[n], copyprime) > 0 do begin delete(copyprime, pos(slovo[n], copyprime), 1); inc(n); end; if n > length(slovo) then { slovo можно получить из первого слова } else { нельзя получить slovo из первого слова } end; end;
ответ:
легко
объяснение: