Робот стоит на поле 4 на 4 верхний клетки в остальных клетках поля записано буквы а б в г робот имеет шагать соседнюю клетку только по вертикали или по горизонтали покидая клетку робот стирать записаны в них буквам роботы из памяти 4 пронумерованных по порядку ячеек каждая ячейка содержит из букв а г г буква в ячейках не повторяется очередной шаг робот выполняет по следующим правилам робот не шагает в клетку буква в которой была стёрта робот просматривает свою память последовательно начиная с ячейки под номером один если робот находятся ячейки в которой записано буква а также записанное в одной из соседних с роботом клеток он перемещается в одну клетку если робот нашёл такой ячейку что буква в этой ячейке записана в двух и более соседних с роботом клетках то он ломается если живот не нашел ни одной подходящей то он ломается останавливается робот когда достигает правой нижней клетки заполните ячейки памяти робота так чтобы робот пришёл правильно нижний угол поля и постройте маршрут робота только быстро мне на сегодня
//Pascal ABC.NET v3.1 сборка 1172
Const
n=20;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3
Final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6
#include <stdio.h>
#include <stdlib.h>
int sover (int n)
{
int sum = 0;
for (int i = 1; i<=n/2; i++)
if (n%i==0) sum+=i;
if (sum==n)
return 1;
else return 0;
}
int main()
{
int n;
printf ("N = ");
scanf ("%d",&n);
if (sover(n)==1)
printf ("Sovershennoe");
else printf ("Ne sovershennoe");
printf("\n");
system ("PAUSE");
return 0;
}
2)
#include <stdio.h>
#include <stdlib.h>
int main()
{
for (int i = 1; i<=5; i++)
{
for (int j = 1; j<=5-i+1; j++)
printf ("%d ",5+i-1);
printf ("\n");
}
system ("PAUSE");
return 0;
}