Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
katyaibadova
13.01.2023 06:07 •
Информатика
Напишите программу в pascal для этой : найти минимальное число в последовательности положительных чисел.
Показать ответ
Ответ:
sapesalex
06.10.2020 01:21
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
tapilina92
10.06.2020 12:17
Перевод числа из системы счисления с основанием q в десятичную систему счисления. Приведите 3-4 примера перевода чисел....
anod7936
30.11.2020 04:51
Свойство алгоритма, предполагающее получение однозначного результата процесса - это... детерминированность результативность дискретность конечность...
GeneralEsdese
14.11.2021 17:34
Які дії можно виконувати з контурами фігури ответе дам 80...
lublubkoba
19.09.2020 07:00
Напишите программу для решения следующей : с клавиатуры вводятся 25 пар чисел. вывести на экран только те пары, сумма которых больше 100...
оксана150986
16.10.2020 08:52
Алгоритм для создания гиперссылок...
yekaterinak977
30.04.2022 14:07
)укажите все случаи использования законов умножения целых неотрицательных чисел при вычислении значения выражения: 25×13×8×4×250=25×8×13×250×4=(25×8)×13×(250×4)=200×13×1000=...
221451
30.04.2022 14:07
Птицы вьют гнёзда,звери устраивают норы,как бобры,или берлоги,как медведь.а человек? человек возводит дом.правда так было не всегда.в самые древние времена люди...
бородкин
30.04.2022 14:07
На автомобиль массой 2 т действует сила трения 16 кн . какова начальная скорость автомобиля , если его тормозной путь равен 40 м...
7910066
30.04.2022 14:07
Найдите значения выражение |-90|: 15 ;...
tilkamilkap0ct2o
30.04.2022 14:07
Мне написать рекламу спорт центра на примерно 70 слов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.