Калькулятор имеет память из 15 регистров, в которые можно записать любое число от 0 до 15. калькулятор может выполнять одну функцию: складывать содержимое любых двух регистров и записать сумму в любой из регистров. регистры имеют номера ( адреса ) от 1 до 15; в регистре 1 содержится число 1, а в остальных число 0. 1. выписать последовательность команд ( программу ), после исполнения которых в регистре 1 окажется число 15. 2. выписать минимальную последовательность команд, после исполнения которых в регистре 1 окажется число 15. 3. последовательность команд из пункта 2 описать в виде блок-схемы ( необязательно

решение этой задачи.......................

uses graphabc;

 

procedure drawlight(x, y, r : integer; c : color);

begin

  brush.color : = c;

  circle(x, y, r);

end;

 

begin

  randomize;

  var v : = random(1, 3);

  var(c1,c2,c3): =(clwhite,clwhite,clwhite);

  case v of

    1 : c1 : = clred;

    2 : c2 : = clyellow;

    3 : c3 : = clgreen;

  end;

  drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);

  drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);

  drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);

end.

в паскале

pascalabc:

program f0rwardirop;

var r, x,y: real;

b: boolean;

begin

  writeln('*   alphaeus is   *');

  write('ok, введите r =');   readln(r);

  write('теперь введите х =');   readln(x);

  write('и, наконец, введите y =');   readln(y);

  if x> =0 then  

      if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then   writeln('точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.