-------------------------
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n.Between(2,10) then begin
var i:=1;
repeat
Write(n,'x',i,'=',n*i,' ');
i+=1
until i>10;
Writeln
end
else Writeln('Число должно быть от 2 до 10')
end.
<u>Пример</u>
n= 6
6x1=6 6x2=12 6x3=18 6x4=24 6x5=30 6x6=36 6x7=42 6x8=48 6x9=54 6x10=60
Напалеон напал на Москву 1812году
Использовать робот
алг
нач
нц пока слева свободно
влево
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа стена
вверх
кц
нц пока слева свободно
закрасить
влево
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа стена
вверх
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа
вверх
кц
закрасить
кон