Как правельно сделать я незнаю
вот подсказка
Program drawFigure;
uses
graph;
var
gD,gR:integer;
procedure drawIt(x,y,lineLong,time:word);
var
ci:byte;
begin
moveTo(x,y);
lineTo(GetX+lineLong,GetY);
for ci:=1 to time do
begin
lineTo(GetX,GetY-lineLong); lineTo(GetX+lineLong,GetY);
lineTo(GetX,GetY+lineLong); lineTo(GetX+lineLong,GetY);
end;
end;
begin
initgraph(gD,gR,'');
drawIt(80,80,50,2);
readln; closeGraph;
<span>end.</span>
Код Бодо кодирует каждый символ в 5 бит (32 символа) или в 6 бит (64 символа) . То есть на любой символ приходится одинаковое количество информации. А в коде Морзе такого нет.
Var a,b,nod,k:integer;
begin
readln(a,b);
k:=0;
while (a<>0)and(b<>0) do
begin
if a>b then a:=a mod b else b:=b mod a;
k:=k+1;
end;
nod:=a+b;
writeln(nod,' ',k);
end.
Пример:
21 14
7 2