krisgord
01.05.2023 21:07

15.1 На бесконечном поле имеются две перпендикулярные друг другу

стены, расположенные в виде буквы «Т», длины стен неизвестны.

Робот находится в клетке, расположенной непосредственно над

горизонтальной стеной. На рисунке указан один из возможных расположения стен и Робота (Робот обозначен буквой «Р»).

Напишите для Робота алгоритм, закрашивающий все клетки,

расположенные непосредственно с правой стороны вертикальной

стены. Робот должен закрасить только клетки, удовлетворяющие

данному условию. Например, для приведённого справа рисунка Робот

должен закрасить следующие клетки (см. рисунок).

При исполнении алгоритма Робот не должен разрушиться, выполнение

алгоритма должно завершиться. Конечное расположение Робота может

быть произвольным. Алгоритм должен решать задачу для любого

допустимого расположения стен и любого расположения и размера

прохода внутри стены. Алгоритм может быть выполнен в среде

формального исполнителя или записан в текстовом редакторе.

15.2 Напишите программу, которая в последовательности натуральных чисел определяет сумму всех

чисел, кратных 3 и оканчивающихся на 9. Программа получает на вход натуральные числа, количество

введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания

ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не

превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 и

оканчивающихся на 9.

Пример работы программы:

Входные данные Выходные данные

16

29

56

9

39

0

48​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
aminatikhonova12
12.12.2021 14:09
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var v:=MatrRandom(7,7,-15,15);
  v.Println(4); Writeln(4*v.ColCount*'-');
  var pr3:=v.Row(2).Aggregate(1,(x,y)->x*y);
  Writeln('Произведение элементов 3-й строки равно ',pr3);
  Writeln('Количество элементов, больших этого произведения, равно ',
      v.ElementsByRow.Where(t->t>pr3).Count);
  Writeln('Максимум в 3-м столбце равен ',v.Col(2).Max)
end.

Пример
*** Исходный массив ***
  -4 -12 -15  -2  13   3 -15
  -7  -1 -15   2  -2   4  -6
  14   5   5  15  -4   3   0
  13  15   9  14  11  -9  11
   1  14  14   1  -4  -1  -7
  15 -10 -13  -3  -8 -12  11
   0 -13  -8   4   6   1 -11

Произведение элементов 3-й строки равно 0
Количество элементов, больших этого произведения, равно 24
Максимум в 3-м столбце равен 14
0,0(0 оценок)
Ответ:
dedrina
12.12.2021 14:09
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var V:=MatrRandom(7,7,-15,15);v.Println;
var com:= V.Row(2).Aggregate(BigInteger(1),(x,y)->(x*y));
Writeln('Произведение эл-в 3ей строки = ', com);
var cnt := 0;
Foreach var x in V.Row(2) do
  if x > com then inc(cnt);
Writeln('Количество элементов, больших чем это произведение = ', cnt);
Writeln('Максимальный элемент 3го столбца = ', V.Col(2).Max);
end.

Пример:
    2  -4 -15  10  -1   2   6
  15  -8  11   5  14  10  15
   0  15 -10  13  -8 -13  14
  14   6  13 -10   9   6 -12
 -14   1   8  -9   1 -12  12
  15   9  10  -7 -14   6  -3
   9   9  -1 -14   1   1   3
Произведение эл-в 3ей строки  = 0
Количество элементов, больших чем это произведение = 3
Максимальный элемент 3го столбца = 13

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