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

Анатолий зашел в лифт на десятом этаже гигантского небоскреба, состоящего из 103 этажей. он не знал, что лифт сломался, и теперь в нем работают только две кнопки. кнопка вверх поднимает лифт на 7 этажей (или, если на 7 невозможно, то до самого верхнего возможного этажа), кнопка вниз опускает лифт на 5 этажей вниз (или, если на 5 невозможно, то на самый нижний этаж, например, если в доме 10 этажей, а лифт на четвертом, то после нажатия кнопки вниз он опустится на первый этаж). анатолий нажал кнопку вверх. затем, после того, как лифт остановился на этаже, нажал кнопку вниз. после того как лифт остановился на этаже, опять нажал кнопку вверх. и снова, после того, как лифт остановился на этаже, нажал кнопку вниз, и так далее… вышел из лифта он после того, как каждую кнопку нажал по 50 раз. на каком этаже он вышел из лифта? если бы каждая кнопка была нажата по два раза, то он оказался бы на 14ом этаже. комментарий. если в доме 15 этажей, а лифт на четвертом, то после нажатия кнопки вверх он поднимется на 11ый этаж, если после этого нажмут кнопку вверх еще раз, то он окажется на 15ом этаже. если же лифт исходно был на седьмом этаже этого дома и нажали кнопку вниз, то лифт опустится на второй этаж. если теперь снова нажать кнопку вниз, то лифт окажется на первом этаже.

Показать ответ
Ответ:
Дмитртй11
Дмитртй11
08.08.2021 00:20
// PascalABC.Net 3.0, сборка 1066

const
  n=5;
var
  a:array[1..n,1..n] of integer;
  x:array[1..n] of double;
  i,j,k:byte;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
      end;
    Writeln
  end;
  Writeln('*** Массив x ***');
  for j:=1 to n do begin
    x[j]:=0; k:=0;
    for i:=1 to n do
      if a[i,j] mod 2=0 then begin
        x[j]:=x[j]+a[i,j]; Inc(k)
      end;
    if k>0 then x[j]:=x[j]/k;
    Write(x[j]:0:5,' ')
    end;
  Writeln
end.

Тестовое решение:
*** Исходный массив ***
 -10  18  -8 -15   5
 -21 -18   6  -2   9
  -7  22  -4   3  14
  21  16 -10 -18  -9
  17   3 -14 -18  12
*** Массив x ***
-10.00000 9.50000 -6.00000 -12.66667 13.00000
0,0(0 оценок)
Ответ:
kirillmotoin
kirillmotoin
12.12.2022 22:29

ответ:Многие страны перешли на т.н. «информационное общество», некоторые – в процессе перехода, в зависимости от факторов, влияющих на то или иное население. Все меньше уделяется внимания  печатным изданиям: ученные говорят о том, что лет через 30 газеты, журналы, книги исчезнут с прилавков.

С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота