Var a:integer;
begin
read(a);
write((a mod 10)*100+(a div 10 mod 10)*10+a div 100)
<span>end.</span>
Ответ:
D9
=Если(C9="";"";ВПР(C9;$J$3:$K$7;2;ЛОЖЬ))
Потом скопировать и вставить в D10-D13
Объяснение:
Если ячейка с9 пуста, то ставим пустоту. Иначе вызываем функцию ВПР.
Анимация процесса копирования или архивации
_____________________________________
Ответ: см.картинку
Условие бесконечного цикла изначально или true (while) или false (repeat).