функциональность:обучение детей и подготовка к школе
дизайн:простой (возможно редактор paint).
К - 1000
L - 1001
M - 1010
N - 1011
KMLN - 1000101010011011(2)=105233(8)
Program danya;
uses crt;
var i,k:integer;
begin
clrscr;
k:=0;
for i:=1000 to 9999 do begin
if (i mod 15=0) and (i mod 17 =0) then k:=k+1; end;
Writeln('Количество чисел= ', k);
readln;
<span>end.</span>
<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