Для любого натурального n верно что последняя цифра числа 6^n=6.
При n=0 получаем 6^0=1 и последняя цифра 1.
При n<0 задача в общем случае неразрешима.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln(ReadInteger('n=')=0 ? '1' : '6')
end.
Пусть команда "+1" - 1, а команда "*2" - 2, то:
111222211 - 9
Много воды, но о большой скорости никто не говорил, верно?)
var a, n, b:integer;
begin
for a := 170 to 180 do;
readln(n);
b := a mod n;
writeln('Ответ:', b);
end.
(Не уверен, но возможно правильно :) )