Задание:
Разработайте программу, которая запрашивает две буквы, а затем печатает все варианты слов с использованием введенных букв (буквы могутповторяться, а слова могут не иметь смысла. Например, «аа» – считается тоже словом). Только как в турбо паскале пожалуйста
Решение:
1. Если слово из 2-х буквvar a,b: char; beginreadln (a,b); writeln (a,b); writeln (b,a); writeln (a,a); writeln (b,b); end.2, если не из двух буквтут сначала вводится n — максимальная длина слова, а уже потом 2 буквы var a,b: char; n: integer; procedure gen (i: integer; s: string); beginif i>n then exit; if i<>0 then writeln (s); gen (i+1,s+a); gen (i+1,s+b); end; beginreadln (n); readln (a,b); gen (0,'); end.
Знаете другой ответ?