 Николай
                          Балыкин
                        
                      
                    
                    
                    
                    
                      Автор вопроса
                      
                      
                        
                          Николай
                          Балыкин
                        
                      
                    
                    
                    
                    
                      Автор вопроса
                    
                    
                  ок 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 - это ж умеешь делать?
 Николай
                          Балыкин
                        
                      
                    
                    
                    
                    
                      Автор вопроса
                      
                      
                        
                          Николай
                          Балыкин
                        
                      
                    
                    
                    
                    
                      Автор вопроса
                    
                    
                  форматировать тоже надо. ато всеравно забанят
прогресс.. уже на мидла тянешь )
 Николай
                          Балыкин
                        
                      
                    
                    
                    
                    
                      Автор вопроса
                      
                      
                        
                          Николай
                          Балыкин
                        
                      
                    
                    
                    
                    
                      Автор вопроса
                    
                    
                  моноширинным
 Николай
                          Балыкин
                        
                      
                    
                    
                    
                    
                      Автор вопроса
                      
                      
                        
                          Николай
                          Балыкин
                        
                      
                    
                    
                    
                    
                      Автор вопроса
                    
                    
                  Обсуждают сегодня