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

277

297

Посмотреть ответы 2

Ответы на вопрос:

yotuber

Информатика

4,6(59 оценок)

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.

maksnovok007

Информатика

4,4(93 оценок)

1) var n, odd, even, i, a: integer; begin odd: =0; even: =1; writeln ('введите число n'); read(n); writeln('введите n целых чисел'); for i: =1 to n do begin read(a); if (a mod 2 = 0) then even: =even*a else odd: =odd+a; end; writeln('произведение чётных чисел равно ', even); writeln('сумма нечётных чисел равна ', odd); end. 2)var n, plus, minus, i: integer; a: real; begin plus: =0; minus: =0; writeln ('введите число n'); read(n); writeln('введите n чисел'); for i: =1 to n do begin read (a); if(a > 0) then plus: =plus+1; if (a < 0) then minus: =minus+1; end; writeln('количество положительных чисел равно ', plus); writeln('количество отрицательных чисел равно ', minus); if (plus< minus) then writeln ('отрицательных больше чем положительных на ', minus-plus); if (plus> minus) then writeln ('положительных больше чем отрицательных на ', plus-minus); if (plus=minus) then writeln ('количество положительных равно количеству отрицательных'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.