ок var i:byte; resultmn: set of char; MnSlov1: set of char; MnSlov2: set of char; Slovo1,slovo2:string; begin resultmn:=[]; MnSlov1:=[]; MnSlov2:=[]; Writeln('Введите первое слово:'); readln(slovo1); for i:=1 to length(slovo1) do begin MnSlov1+=[slovo1[i]]; end; writeln('Введите второе слово:'); readln(slovo2); for i:=1 to length(slovo2) do begin MnSlov2+=[slovo2[i]]; end; resultmn:=MnSlov1*MnSlov2; writeln(resultmn); end. на выводе затупил
ты ж исходник выделить можешь? Ctrl+C и Ctrl+V - это ж умеешь делать?
форматировать тоже надо. ато всеравно забанят
прогресс.. уже на мидла тянешь )
моноширинным
Обсуждают сегодня