Сделать эту задачу можно двумя способами. Первый - чисто арифметический. Второй - более хитрый, через операции над строками. Мы пойдем вторым путем, он короче и практичней, такой код будет требовать меньше ресурсов машины для реализации (что незаметно в таких маленьких задачках, но довольно критично в реальной жизни, поэтому учимся писать дальновидные коды).
<em>Var n:longint;</em>
<em>Function MinDigit(n:longint):integer;</em>
<em>var s,a:string; c,i:integer;</em>
<em>begin</em>
<em> str(n,s);</em>
<em> a:=s[1];</em>
<em> for i:=2 to length(s) do</em>
<em> if s[i]<a then a:=s[i];</em>
<em> val(a,n,c);
</em> MinDigit:=n;
<em>end;</em>
<em>Function MaxDigit(n:longint):integer;</em>
<em>var s,a:string; c,i:integer;</em>
<em>begin</em>
<em> str(n,s);</em>
<em> a:=s[1];</em>
<em> for i:=2 to length(s) do</em>
<em> if s[i]>a then a:=s[i];</em>
<em> val(a,n,c);
</em> MaxDigit:=n;
<em>end;</em>
<em>Begin</em>
<em> readln(n);</em>
<em> writeln(MinDigit(n),' ',MaxDigit(n));</em>
<em>End.
</em>По факту переменную <em>"c"</em> можно убрать из функций и использовать вместо нее уже не нужную в конце <em>"i"</em>, таким образом избавившись от одной переменной. Но это не принципиально на самом деле, к тому же так понятней, какая переменная за что отвечает.
Да обычный вроде...как в чертёжнике. Uses robot; Вот так подключается, если не ошибаюсь.
Для заполнения значений Y:
в ячейку B4 записать значение 1,5;
выделить диапазон B3:B4;
используя маркер автозаполнения протянуть на вниз на нужное число строк.
Для заполнения значений Z:
в ячейку C4 записать значение -0.1;
выделить диапазон C3:C4;
используя маркер автозаполнения протянуть на вниз на нужное число строк.
64*64*16*1024=<span>
<span>67108864бит/8/1024/1024=8Мбайт</span></span>