Уисполнителя калькулятор две команды: 1. прибавь 2 2. умножь на 2 какое число получит этот исполнитель, если выполнит программу 122112 для начального числа 6?
У исполнителя Калькулятор две команды: 1. прибавь 2 2. умножь на 2 Какое число получит этот исполнитель, если выполнит программу 122112 для начального числа 6?
uses graphABC; function ris(x,y,r,n:integer):integer; begin if n=0 then ris:=0 else begin circle(x,y,r); dec(n); ris:=ris(x+round((r-r/3)*cos(pi/3)),y-round((r-r/3)*sin(pi/3)),r div 3,n); ris:=ris(x+round((r-r/3)*cos(2*pi/3)),y-round((r-r/3)*sin(2*pi/3)),r div 3,n); ris:=ris(x+round((r-r/3)*cos(pi)),y-round((r-r/3)*sin(pi)),r div 3,n) ris:=ris(x+round((r-r/3)*cos(4*pi/3)),y-round((r-r/3)*sin(4*pi/3)),r div 3,n); ris:=ris(x+round((r-r/3)*cos(5*pi/3)),y-round((r-r/3)*sin(5*pi/3)),r div 3,n); ris:=ris(x+round((r-r/3)*cos(2*pi)),y-round((r-r/3)*sin(2*pi)),r div 3,n); end end; var x,y:integer; begin x:=windowwidth div 2; y:=windowheight div 2; ris(x,y,200,5); end.
a.to(b) возвращает последовательность чисел от a до b, Select позволяет получить новую последовательность из старой (например, x -> x*x из x делает x в квадрате, то есть это функция, возводящая число в квадрат), Print(delim) выводит элементы последовательности с разделителем delim, chr(10) - символ перевода строки.
1. прибавь 2
2. умножь на 2
Какое число получит этот исполнитель, если выполнит программу 122112 для начального числа 6?
6 + 2 = 8 (1)
8 * 2 = 16 (2)
16 * 2 = 32 (2)
32 + 2 = 34 (1)
34 + 2 = 36 (1)
36 * 2 = 72 (2)
72