5) Исполнитель А23S преобразует целое число, записанное на экране. У исполнителя три команды, каждой команде присвоен номер: 1. Прибавь 2
2. Прибавь 3
3. Прибавь предыдущее
Первая команда увеличивает число на экране на 2, вторая увеличивает это число на 3, третья прибавляет к числу на экране число, меньшее на 1 (к числу 3 прибавляется 2, к числу 11 прибавляется 10 и т. д.). Программа для исполнителя А23S – это последовательность команд.
Сколько существует программ, которые число 2 преобразуют в число 11?
function L(x1,y1,x2,y2:real):=Sqrt(Sqr(x2-x1)+Sqr(y2-y1));
begin
var (xa,ya):=ReadReal2('Введите координаты точки А(х,у):');
var (xb,yb):=ReadReal2('Введите координаты точки B(х,у):');
var (xc,yc):=ReadReal2('Введите координаты точки C(х,у):');
var a:=L(xb,yb,xc,yc);
var b:=L(xc,yc,xa,ya);
var c:=L(xb,yb,xa,ya);
var k:=a=b?1:0;
k+=a=c?1:0;
k+=b=c?1:0;
case k of
0:Writeln('разносторонний');
1:Writeln('равнобедренный');
else Writeln('равносторонний');
end
end.
begin
var n:=ReadInteger('n=');
var i:=Trunc(Ln(n)/Ln(3));
if 3**i=n then i-=1;
Writeln(i)
end.