Ниже приведен код азбуки Морзе. Постройте для этого кода соответствующий ему орграф. Определите, является ли этот код префиксным.

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.

все слова по 6 букв, в каждом в середине находится "оро", в каждом присутствуют одни и те же гласные на тех же местах

var a,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1: =0;

  w2: =0;

  w3: =0;

  l: =a mod 10;

  while a> 0 do

  begin

      if a mod 10=c then w1: =w1+1;

        if a mod 10=l then w2: =w2+1;

        if a mod 2=0 then w3: =w3+1;

        a: =a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.