program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.
Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вверх
кц
нц пока не сверху свободно
закрасить
вправо
кц
если сверху свободно то
влево
вниз
все
нц пока не слева свободно
закрасить
вниз
кц
если сверху свободно то
вверх
все
кон
Система счисление с основанием 311:
Запишется как [28][2]
проверка311**1*28+311**0*2 == 8710
Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>