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

Исполнитель Робот передвигается на клетчатой доске, выполняя команды: 1-шаг вверх, 2-шаг вниз, 3-шаг вправо, 4-шаг влево. Робот успешно выполнил программу: a) 2422432 б) 1213313

Какую последовательность командолжен выполнить Робот, чтобы вернуься кратчайшим путем в начальную клетку?

Показать ответ
Ответ:
Ира0386
Ира0386
24.07.2022 00:41
1) подход учитывающий не один, а несколько факторов - например  программировать работу светофора так, чтобы были учтены  а) "часы-пик"  б) погодные условия (туман/дождь/гололед) в) централизованные сигналы (проезд кортежа президента) г) сигналы пешеходов на переходе и т.д.;
2) системный эффект - это возникновение новых свойств, которых ранее не было у  элементов по отдельности. Кроме того,  это не очевидное (не сразу заметное) влияние различных факторов друг на друга и на конечный результат - например компьютер состоит из ряда простых электронных деталей, которые сами по себе ничего не представляют, но соединённые особым образом (в структуру) позволяют  хранить  числа и программы, складывать и вычислять и в конечном итоге - моделировать реальность (в играх, например). 
3) турникет в автобусе или метро (никто не знает как он работает, но все пользуются)
0,0(0 оценок)
Ответ:
Музалевская
Музалевская
11.01.2022 20:32
Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота