Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
vkovbasa99
26.11.2021 10:28 •
Информатика
Дано натуральное число n . определить наименьшую и наибольшую цифры данного числа (pascal abc)
Показать ответ
Ответ:
maratkaa337
08.09.2020 06:39
Var
s:string;
max,min:char;
begin
write('Введите число: '); readln(s);
max:=s[1]; min:=s[1];
for var i:=2 to s.Length do begin
if min>s[i] then min:=s[i];
if max<s[i] then max:=s[i];
end;
writeln('max = ',max);
writeln('min = ',min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
veraserditih
06.07.2021 16:18
А) 5 Кбайтта канша байт, канша бит бар екенін аныкта? 6) 12288 бетте канша байт, канша килобайт бар?...
zol1981
02.11.2020 09:56
Запишите следующие числа в естественной форме: а) 0,3800456 : 102;б) 0,245 : 10-3;в) 1,256900E+5;г) 9,569120E-3....
полина2059
08.07.2020 23:42
Чертежник составьте алгоритм букв Р и Д...
Хитрая0Лиса0
09.04.2023 16:02
буду очень благодарна)...
jf7yyf
23.03.2020 16:44
Информатика, 8 класс переведите cix и mdclxv в десятичную систему счисления...
irada2004irada
07.04.2021 17:20
Установите соответсвие между переменной и типом данных...
maxtrimfxus
05.03.2020 16:21
От разведчика было получено сообщение: В этом сообщении зашифрован пароль oбo последовател ность русских букв. В пароле использовались только буквы А, Е, И, К, Л, 0; ка дая буква...
mara1427
03.03.2023 17:04
расположить фрагменты программы в порядке следования....
avdzhrr
21.09.2020 01:47
Составьте с антонимами два предложения с союзом а...
mvrlin
21.09.2020 01:47
НАДО НАЙТИ БЕЗ ЛИЧНЫЕ ГЛАГОЛЫ И ОПРЕДЕЛИТЬ ФОРМУ ИХ УПОТРЕБЛЕНИЯ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s:string;
max,min:char;
begin
write('Введите число: '); readln(s);
max:=s[1]; min:=s[1];
for var i:=2 to s.Length do begin
if min>s[i] then min:=s[i];
if max<s[i] then max:=s[i];
end;
writeln('max = ',max);
writeln('min = ',min);
end.