Ответ на ребус - информация
1)использовать Чертежник
алг
нач
опустить перо
нц 5 раз
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
сместиться на вектор(1,1)
сместиться на вектор(1,-1)
сместиться на вектор(-1,-1)
сместиться на вектор(-1,1)
поднять перо
сместиться на вектор (2,-1)
опустить перо
кц
<span>кон
2)</span>использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
нц 3 раз
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
сместиться на вектор(-2,-2)
сместиться на вектор(-2,2)
поднять перо
сместиться на вектор(4,-1)
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
кц
<span>кон</span>
//Pascal ABC.NET v3.1 сборка 1172
Var
n,r:integer;
begin
readln(n);
n:=(n div 10)*(n mod 10);
writeln(n);
end.
Пример ввода:
32
Пример вывода:
6