В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
flimas
flimas
22.03.2020 02:38 •  Информатика

Робот стоит на поле 4 на 4 верхний клетки в остальных клетках поля записано буквы а б в г робот имеет шагать соседнюю клетку только по вертикали или по горизонтали покидая клетку робот стирать записаны в них буквам роботы из памяти 4 пронумерованных по порядку ячеек каждая ячейка содержит из букв а г г буква в ячейках не повторяется очередной шаг робот выполняет по следующим правилам робот не шагает в клетку буква в которой была стёрта робот просматривает свою память последовательно начиная с ячейки под номером один если робот находятся ячейки в которой записано буква а также записанное в одной из соседних с роботом клеток он перемещается в одну клетку если робот нашёл такой ячейку что буква в этой ячейке записана в двух и более соседних с роботом клетках то он ломается если живот не нашел ни одной подходящей то он ломается останавливается робот когда достигает правой нижней клетки заполните ячейки памяти робота так чтобы робот пришёл правильно нижний угол поля и постройте маршрут робота только быстро мне на сегодня ​

Показать ответ
Ответ:
danilgrekov20
danilgrekov20
12.12.2022 20:20
//Видимо, это одна задача, так как "изменения" во второй не указаны
//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
0,0(0 оценок)
Ответ:
Alina22511
Alina22511
17.05.2021 04:57
1)
#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;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота