народ помогите, а то я чето туплю
пусть даны три слова. необходимо определить буквы, которые встречаются во всех 3 словах (для нахождения множества символов, образующих слово, используйте процедуру).
заранее спасибо
ПАСКАЛЬ - ПРОЦЕДУРА
function isin2and3(c:char):boolean;
begin isin2and3:=pos(c,s2)*pos(c,s2)>0; end;
for i:=1 to length(s1) do
if isin2and3(s1) then write(s);
begin isin2and3:=pos(c,s2)*pos(c,s2)>0; end;
for i:=1 to length(s1) do
if isin2and3(s1) then write(s);
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.