Max=0
Min=30000
x=int(input())
while x:
if x>Max:
Max=x
if x<Min:
Min=x
print(Max,Min)
===== PascalABC.NET =====
begin
var s := ReadlnString('Введи целое неотрицательное число:');
var c := ReadlnChar('Введи цифру:');
Print('Цифр в числе, не превосходящих введенную,',
s.Count(p -> p <= c))
end.
<span>а)мальчик ест арбуз - вкус
</span><span>б)девочка собирает в поле букет цветов - осязание
</span><span>в)мужчина выбирает книгу в магазине - зрение
</span><span>г)слепой человек читает книгу с использованием азбуки Брайля - осязание
</span><span>д)волк охотится за зайцем - зрение, обоняние
</span><span>е)спортсмен ныряет в воду - осязание</span>
Каждое из 4 чисел адреса должно быть не больше 255, поэтому
23 3.20 3.232 .33 или 233.203.232.33
т.е. ГВБА