Составить программу в паскале. вам дано три числа a, b и c. вы должны в таком порядке приписать эти числа друг к другу, чтобы в результате получилось минимальное число. например, если a=12, b=5, c=3, приписыванием можно получить числа 1253, 1235, 3125, 3512, 5123, 5312. минимальным среди этих чисел является 1235.
286
462
Ответы на вопрос:
Var a, b, c, p1, p2, p3, p4, p5, p6 : longint; s1, s2, s3, s4, s5, s6, a1, b1, c1 : string; begin read (a); read (b); read (c); str(a,a1); str(b,b1); str(c,c1); s1: =a1+b1+c1; s2: =a1+c1+b1; s3: =b1+a1+c1; s4: =b1+c1+a1; s5: =c1+a1+b1; s6: =c1+b1+a1; val(s1,p1,a); val(s2,p2,a); val(s3,p3,a); val(s4,p4,a); val(s5,p5,a); val(s6,p6,a); a: =p1; if p2< a then a: =p2; if p3< a then a: =p3; if p4< a then a: =p4; if p5< a then a: =p5; if p6< a then a: =p6; writeln(a); end.p.s. грубо говоря мы собираем все возможные варианты, потом находим наименьшее и выводим его.p.s.s. val(a, b, c) это процедура преобразования строки а в числовое значение b, а c проверка, преобразовалась ли она правильно. и str(a, b) процедура перевода числового значения a, в строку b;
Var a: array[1..3] of string; i, j, k, min, x: integer; begin for i : = 1 to 3 do begin write('введите ',i,' число: '); readln(a[i]); end; x : = strtoint(a[1] + a[2] + a[3]); min : = x; for i : = 1 to 3 do for j : = 1 to 3 do if j < > i then for k : = 1 to 3 do if (j < > k) and (i < > k) then begin x : = strtoint(a[i] + a[j] + a[k]); if x < min then min : = x; end; writeln('min=', min) end.
Using system; using system.collections.generic; using system.linq; using system.text; namespace consoleapplication4 { class program { static void main(string[] args) { bool result = false; console.writeline("введи строку"); string str = console.readline(); for (int i = 0; i < str.length - 1; i++) { if (str.substring(i, 1) == str.substring(i + 1, 1)) { result = true; break; } } if (result == true) console.writeline("да, встречаются"); else console.writeline("нет, не встречаются"); console.readkey(); } } }
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
23711219.06.2021 07:28
-
elenchik200623.06.2020 12:57
-
kebabchik11127.07.2021 17:40
-
Robingood13508.05.2020 03:52
-
Максиmm30.11.2020 08:51
-
IronGold27.03.2023 05:31
-
Anjica07.12.2021 20:04
-
anokhinsema29.06.2023 23:07
-
Кate125730.01.2023 23:47
-
маруська6227.01.2022 01:23
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.