Разработайте программу, которая запрашивает две буквы…

Question

Разработайте программу, которая запрашивает две буквы, а затем печатает все варианты слов с использованием введенных букв (буквы могутповторяться, а слова могут не иметь смысла. Например, «аа» – считается тоже словом). Только как в турбо паскале пожалуйста

Answer 1

42

antonina2013

26 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: