Решать с паскаль 1.дано трехзначное число. определите есть ли в этом числе одинаковые цифры. 2. работа светофора для пешеходов запрограммирована следующим образом: начиная с начала каждого часа, в течение трех минут горит зеленый сигнал, затем в течении двух минут — красный, в течении трех минут — опять зеленый и т.д. дано вещественное число t, означающее время в минутах, прошедшее с начала очередного часа. определить, сигнал какого цвета горит для пешеходов в этот момент. , ) решите хотя бы одну из этих !
120
329
Ответы на вопрос:
Zadacha_1; var a,b,c: integer; begin writeln (' введите число'); readln(a); b: =a mod 10; a: =a div 10; c: =a mod 10; a: =a div 10; if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть') else writeln('таких чисел нет'); end. zadacha_2; var a: integer; begin writeln(' введите время в минутах'); readln(a); a: =a mod 10; if ((a > = 0) and (a < = 3)) or ((a > 5) and (a < = 8)) then writeln('зелёный'); if ((a > 3) and (a < = 5)) or ((a > 8) and (a < 0)) then writeln('жёлтый'); end.
Program n1; uses crt; var a,b,c,d,s: integer; begin clrscr; writeln('vvedite s'); read(s); a: =s mod 100; b: =s div 100; c: =a mod 10; d: =a div 10; if (b=d) or (b=c) or (c=d) then writeln('est') else writeln('net'); readkey; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
only10up04.01.2022 12:30
-
FriskPacifist08.04.2022 02:06
-
egorshlyahov12p0dhm916.11.2022 02:41
-
5class1i24.05.2022 10:52
-
Gravetalia31.08.2022 04:04
-
mrlams28813.09.2021 06:39
-
УмнаяВыхухоль13.06.2023 18:50
-
Alice1st24.01.2022 00:40
-
feroprosto24.11.2022 01:01
-
garanina200504.04.2021 10:19
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.