Ответы на вопрос:
Program ex1; var s: string; c: char; i, n, m, min: integer; begin s : = ''; m : = 0; n : = 0; min : = 10; writeln('введите число'); repeat read(c); s : = s + c; i : = strtoint(c); if i mod 2 = 0 then if c < > '0' then m : = m + 1; // для 2) n : = n + 1; if i < min then min : = i until c = '0'; writeln('введено число ', s, ', в нем четных цифр- ', m) end. program ex2; var s: string; i, d, n, min: integer; begin min : = 10; writeln('введите число'); readln(s); n : = length(s); for i : = 1 to length(s) do begin d : = strtoint(s[i]); if d < min then min : = d end; writeln('введено число ', s, ', в нем цифр- ', n, ', минимальная- ', min) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
fizik2407.08.2022 05:08
-
dilyara11200508.10.2021 19:19
-
АлисаЛостек250713.07.2020 15:59
-
3Человек322.01.2021 23:10
-
Аня20001111101.02.2020 03:41
-
pnzarKarina14.03.2023 04:20
-
Molderjkee29.09.2021 03:27
-
дилли121.01.2023 05:12
-
Regisha198121.04.2020 06:04
-
Kalimovnadir28.11.2022 00:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.