1Алексей123451
03.07.2021 03:20

Составьте таблицы истинности. (60 )

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bobrovpasha
23.08.2021 22:45
Var A: array [1..10] of integer;                                                                                          i,b: integer;                                                                                                                begin                                                                                                                                for i:=1 to 10 do                                                                                          readln(A[i]); for i:=1 to 10 do begin                                                                                  if A[i]=5 then                                                                                                                       writeln(i,' Строка');                                                                                                            end;                                                                                                                              end.
0,0(0 оценок)
Ответ:
sheremetev02
06.01.2022 10:40

Объяснение:

Алгоритм решения данной задачи можно описать так:

За у пользователя количество шагов сдвига и направление. Условиться, что если вводится отрицательное целое, то сдвиг выполняется влево на указанное абсолютное значение, если вводится положительное число, то сдвиг вправо.

Заполнить исходный массив и вывести его на экран.

Выполнять внешний цикл столько раз, сколько шагов было указано.

Если было введено отрицательное число, то выполнить цикл от первого элемента до предпоследнего, перезаписав в нем значение каждой очередной ячейки на значение последующей. Записать в последнюю ячейку 0.

Иначе, выполнить цикл от последнего элемента до второго, записывая в каждую текущую ячейку значение предыдущей. В первую ячейку записать 0.

Вывести на экран текущий массив.

Сдвиг Влево

-4

111 222 333 444 555 666 777 888 999

222 333 444 555 666 777 888 999   0

333 444 555 666 777 888 999   0   0

444 555 666 777 888 999   0   0   0

555 666 777 888 999   0   0   0   0

Сдвиг в Право

5

111 222 333 444 555 666 777 888 999

  0 111 222 333 444 555 666 777 888

  0   0 111 222 333 444 555 666 777

  0   0   0 111 222 333 444 555 666

  0   0   0   0 111 222 333 444 555

  0   0   0   0   0 111 222 333 444

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