Ответы на вопрос:
1.
var n, a, b, c: integer;
begin readln(n); a : = n div 100; b : = n div 10 mod 10; c : = n mod 10; if (a = b) or (b = c) or (a = c) then writeln('yes') else writeln('no'); end.
2.
var a, b, c: real;
begin readln(a, b, c); if ((a < b) and (b < c)) or ((a > b) and (b > c)) then begin a : = a * 2; b : = b * 2; c : = c * 2; end else begin a : = -a; b : = -b; c : = -c; end; writeln(a,' ', b,' ', c); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Kabesov24.08.2021 13:36
-
nona200321.06.2020 02:58
-
VarmaleyYouTuber14.02.2020 14:27
-
МейнКун0523.08.2021 09:21
-
moon253620.03.2021 02:33
-
PashaШкипер10.02.2020 19:19
-
Parastaev13.10.2022 23:14
-
Mariam2107200331.03.2020 11:44
-
Мэрия77714.11.2021 12:22
-
5бкрутой18.11.2022 01:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.