<u><em>Текст модуля (Free Pascal):</em></u>
unit MyLib;
interface
procedure MinDigit(n:longint;var md:byte);
implementation
procedure MinDigit(n:longint;var md:byte);
var
d:byte;
begin
md:=10;
while n>0 do begin
d:=n mod 10;
if d<md then md:=d;
n:=n div 10
end
end;
begin
end.
<em><u>Тестовая программа:</u></em>
uses
Crt, MyLib;
var
p:byte;
begin
ClrScr;
MinDigit(45134,p);
Writeln('p=',p);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
p=1
Вот так пойдет
первая картинка раскрашеная вторая нет
1)Как можно нарисовать овал?
2)Как можно выбрать фоновой цвет?
3)Как можно выбрать основной цвет?
4)Как изменить шрифт?
5)Как выделить область?
6)Как нарисовать линию?