1)
program gt;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
if(i+j=8)then writeln(i,j);
end.
2)
program gt2;
var a,b,c,t:integer;
begin
t:=0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if(a=c)then t:=t+1;
writeln(t);
end.
Сложно очень,попроси учителя чтобы помог
Просто выполняем алгоритм для каждой из клеток.
Например, 4 клетка в пятом ряду: у неё сверху стенка, поэтому она двигается вправо, оттуда опять вправо, оттуда еще раз вправо и врезается в стенку после 6-й клетки.
4 клетка в третьем ряду: у ней сверху нет стенки, снизу есть, поэтому робот движется влево. Затем снизу нет стенки, а сверху есть, поэтому робот возвращается обратно, и всё повторяется.
6 клетка во втором ряду: у неё ни сверху, ни снизу нет стенок, поэтому она стоит на месте.
Клетки, начав с которых, робот разбивается помечены персиковым цветом, в них указано, о какую стенку он разбивается. Клетки, начав с которых, робот делает конечное число шагов, отмечены бледно-оранжевым цветом, в них указано, в какой клетке остановится робот. Зелёные клетки удовлетворяют условию, их на рисунке 6.