Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
karina270607
06.04.2023 08:55 •
Информатика
Данно натуральное число. а) определить его максимальную цифру. б) определить его минимальную цифру. qbasic 4.0
Показать ответ
Ответ:
Fighertik
20.07.2020 23:27
CLS
INPUT "A="; S$
L = LEN(S$)
max = VAL(RIGHT$(S$, 1))
min = VAL(RIGHT$(S$, 1))
FOR i = 1 TO L
K = VAL(MID$(S$, i, 1))
IF K < min THEN
min = K
END IF
IF K > max THEN
max = K
END IF
NEXT i
PRINT "max ="; max
PRINT "min ="; min
0,0
(0 оценок)
Популярные вопросы: Информатика
пикча6
09.06.2020 01:31
1) в ячейке e9 записана формула $с$7/$с7 формулу скопировали в ячейку d7. указать формулу в ячейку d7. 2) в ячейке d13 записана формула =c10+c11. формулу скопировали в ячейку...
Арменкаааа
25.01.2023 08:32
Определить, сколько раз в тексте встречается заданное слово. написать программу, паскаль...
СоникДляТебя67
30.05.2020 02:27
Введите строку с экрана. выведите её длину. добавьте после второго символа символ «о», удалите из строки последний символ. выведите на экран результирующую строку. приложите...
Felipinec
11.11.2021 03:44
Напишите программу, которая находит сумму, произведение и среднее арифметическое трёх целых чисел, введённых с клавиатуры. входные данные: 1 2 3 выходные данные: 1+2+3=6 1*2*3=6...
alenka18121
04.06.2021 19:43
Інформатика знайти суму чисел 2,та добуток чисел,кратні 5,від числа 1до 10...
Samsas
03.06.2022 20:58
Для чего нужны переменные в Pascal?...
SkyForce144
26.11.2021 04:29
Нахождение номера минимального значения в последовательности вводимых чисел. остановить обработку при вводе признака конца предварительно введённого пользователем числа. тип...
vladmasWwr
15.07.2021 17:23
Ввести массив из 10 элементов, заполнить его по образцу а) 2 5 10 17 б)1,3,5,7,9,11,13,15,17,19 50...
Superfoxygirl112
29.04.2020 22:56
Кондитер должен оформить 108 тортов часть тортов он уже украсил и ему осталось оформить 36 тортов сколько часов отработал кондитер если каждый час он украшал 12 тортов...
tanecka2
29.04.2020 22:56
Как решить проблему беженцев ? со стороны юриста ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
INPUT "A="; S$
L = LEN(S$)
max = VAL(RIGHT$(S$, 1))
min = VAL(RIGHT$(S$, 1))
FOR i = 1 TO L
K = VAL(MID$(S$, i, 1))
IF K < min THEN
min = K
END IF
IF K > max THEN
max = K
END IF
NEXT i
PRINT "max ="; max
PRINT "min ="; min