Выполните задание. На бесконечном поле есть горизонтальная и вертикальная стены. Левый конец горизонтальной стены соединён с нижним концом вертикальной стены. Длины стен неизвестны. В горизонтальной стене есть ровно один проход, точное место прохода и его ширина неизвестны. Робот находится в клетке, расположенной рядом с вертикальной стеной справа от её верхнего конца. На рисунке указан один из возможных расположения стен и Робота (Робот обозначен буквой «Р» Напишите для Робота алгоритм, закрашивающий все клетки, расположенные непосредственно выше и ниже горизонтальной стены. Проход должен остаться незакрашенным. Робот должен закрасить только клетки, удовлетворяющие данному условию. Например, для приведённого выше рисунка Робот должен закрасить следующие клетки (см. рисунок). При исполнении алгоритма Робот не должен разрушиться, выполнение алгоритма должно завершиться. Конечное расположение Робота может быть произвольным. Алгоритм должен решать задачу для любого допустимого расположения стен и любого расположения и размера проходов внутри стен. Алгоритм может быть выполнен в среде формального исполнителя или записан в текстовом редакторе.
Ответы
var
i: Integer;
l: Single;
counter: Integer;
begin
counter := 0;
for i := 0 to 14 do begin
Read(l);
if l >= 165 then
counter := counter + 1 ;
end;
Writeln(counter);
end.
Второй вариант
const
cN: Integer = 15;
cMinSuitableLength: Single = 165;
var
arr: array [0..14] of Single;
i, counter: Integer;
begin
for i := 0 to Length(arr) - 1 do
Read(arr[i]);
counter := 0;
for i := 0 to Length(arr) - 1 do
if arr[i] >= cMinSuitableLength then
counter := counter + 1;
Writeln(counter);
end.
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Чуваки, серьёзно Надо скорее закончить эту работу.
Автор: ПаничерскийЕлена
16-тый номер, с объяснением желательно)
Автор: ayk111560
Мазмуннын кандай турлери бар 6 сынып информатика
Автор: Кольцова
Основные средства, используемые в SketchUp
Автор: andrey4work918
Что выведется на экран? а:=12; b:=7; Writeln(' Разность ', а , ' и ', b , ' равна ', а-b);
Автор: Snimshchikov465
var
i: Integer;
l: Single;
counter: Integer;
begin
counter := 0;
for i := 0 to 14 do begin
Read(l);
if l >= 165 then
counter := counter + 1 ;
end;
Writeln(counter);
end.
Второй вариант
const
cN: Integer = 15;
cMinSuitableLength: Single = 165;
var
arr: array [0..14] of Single;
i, counter: Integer;
begin
for i := 0 to Length(arr) - 1 do
Read(arr[i]);
counter := 0;
for i := 0 to Length(arr) - 1 do
if arr[i] >= cMinSuitableLength then
counter := counter + 1;
Writeln(counter);
end.
Объяснение: