Спо информатике языком vba дано целое четырехзначное число. найти минимальную его цифру. проверить возможность ввода не четырехзначного числа, при этом сообщить об ошибке ввода.

167

183

Посмотреть ответы 2

Ответы на вопрос:

Shkolnik228007

Информатика

4,4(42 оценок)

Sub ex() n = cint(inputbox("введите натуральное 4х значное число")) if n < 1000 or n > 9999 then msgbox "недопустимое значение" else dm = n mod 10 do while n > 0 d = n mod 10 if d < dm then dm = d n = n \ 10 loop msgbox "наименьшая цифра: " + cstr(dm) end if end sub