Ответы на вопрос:
Uses crt; var s: string; i: integer; begin write ('введите строку: '); readln (s); for i: = 1 to length (s) do if s[i]='? ' then s[i]: ='! '; writeln (s); end.
Var i, p: integer; m: array [1..4] of integer; begin writeln('введите 4 числа: '); for i : = 1 to 4 do readln (m[i]); p : = 0; writeln('четные числа кратные 3: '); for i : = 1 to 4 do if (m[i] mod 2 = 0) and (m[i] mod 3 = 0) then begin write (m[i], ' '); inc(p); end; if p = 0 then write('таковых нет'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Dianapro11108.02.2021 02:36
-
shamsutdinovaa311.05.2023 11:22
-
Face20030.03.2022 04:13
-
tatianabeklemia13.01.2023 16:42
-
оксана73106.10.2021 21:14
-
qqruzko08.01.2023 01:39
-
idknotforlong08.11.2020 03:48
-
KeyP01.10.2022 18:50
-
KaguraChan02.10.2021 03:24
-
2281337xD13.09.2021 08:00
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.