Напишите программу в pascal для этой : найти минимальное число в последовательности положительных чисел.
141
398
Ответы на вопрос:
Var a, max, i : integer; s, x : string; begin max: =-1; readln(s); for i: =1 to length(s) do begin x: =copy(s, i, 1); val(x, a); if a> max then max: =a; end; writeln(max); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
наталинка197517.02.2023 14:12
-
DashaWolf1110.06.2021 15:07
-
юлия165717.09.2020 22:10
-
мака200707.06.2020 05:59
-
elizavetafilip224.09.2021 15:07
-
Любознайка0928.02.2023 15:27
-
slava45216352515.01.2023 16:21
-
кура00007.02.2023 08:38
-
lubvic7703.03.2021 04:17
-
olga19588811.03.2020 06:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.