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

Геннадию необходимо попасть с этажа A на этаж B. Для вызова лифта на всех этажах офисного здания, кроме первого и последнего, есть две кнопки — для перемещения вниз и перемещения вверх. В тот момент, когда Геннадий нажал нужную кнопку вызова, лифт находился на этаже C и вез одного пассажира на этаж D. Если лифт проезжает мимо этажа, на котором нажата кнопка вызова, и лифт движется в подходящем направлении, то лифт останавливается, чтобы посадить дополнительного пассажира. Лифт перемещается между соседними этажами за одну единицу времени, также одну единицу времени занимает остановка лифта на этаже для высадки или посадки пассажиров.
Напишите программу, вычисляющую, через сколько времени Геннадий доберется до этажа B, при условии, что никто больше не будет вызвать лифт.

Формат ввода
Первая строка ввода содержит четыре целых числа A,B,C и D, разделенных одним пробелом (1 ≤ A,B,C,D ≤ 20,A≠B,C≠D,A≠C).
Формат вывода
Вывести одно целое число — количество единиц времени от момента вызова лифта до момента, когда Геннадий выйдет из лифта на этаже B.
Пример 2
ВВОД

3 9 2 5

ВЫВОД

10

Пример 2
ВВОД

3 9 5 2

ВЫВОД

13

Показать ответ
Ответ:
vikadmitrieva5
vikadmitrieva5
12.06.2022 00:44
Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.
0,0(0 оценок)
Ответ:
шуберт678
шуберт678
15.10.2021 07:51
Перечислим основные факторы, способствующие повышению эффективности образовательного процесса при условии комплексной информатизации системы образования: оперативность получения информации из структурных подразделений и учебных заведений; снижение прямых и обратных потоков информации; оперативное получение и обработка отчетности; системное хранение и оперативное использование нормативной базы, информации о материально-технической базе, кадровом составе учебных заведений, периодичности прохождения педагогическими кадрами курсов повышения квалификации, опыте работы учебных заведений, педагогов; информатика и информационно-коммуникационные технологии занимают особое положение в современном мире. навыки владения компьютером, использование информационных и коммуникационных технологий в повседневной работе, умение использовать возможности сети интернет - такова реальность сегодняшнего дня. информационные технологии неизбежно ведут к изменениям в организации учебного процесса.  важно определить их истинную роль и место, которое им должно быть отведено в организации учебного процесса, а также в образовательным учреждением.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота