Уисполнителя утроитель две команды, которым присвоены номера: 1 – вычти 2 2 – умножь на три первая из них уменьшает число на экране на 2, вторая – утраивает его. запишите порядок команд в алгоритме получения из числа 11 числа 13, содержащем не более 5 команд, указывая лишь номера команд.

11(вычитай 2)=9-2=7-2=5*3=15-2=13 это действия с числом изображ в виде графов (это только одна ветвь)   ответ: порядок команд такой 11121

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end. 

 

Var  a,b,p,n,x,i: integer; begin writeln('сколько примеров будешь решать: '); readln(n); for i: =1 to n do   begin   a: =random(10)+1;   b: =random(10)+1;   write('сколько будет ',a,'+',b,'=');   readln(x);   if x=a+b then     begin     p: =p+1;     writeln('правильно');     end     else writeln('неверно');   end; writeln('число правильных ответов: ',p); if p=n then writeln('отлично, ты превосходно знаешь арифметику'); if (p< n) and (p/n> 0.75) then writeln('хорошо, ты неплохо знаешь арифметику'); if (p/n< =0.75) and (p/n> 0.5) then writeln('удовлетворительно, ты средне знаешь арифметику'); if (p/n< =0.5) and (p> 0) then writeln('плохо, ты не знаешь арифметику'); if p=0 then writeln('отвратительно, ты абслютно не знаешь арифметику'); end.можно сделать, чтобы не только на сложение, а на все 4 действия.