ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
число: ЦЕЛ;
полож, черед: КЛЮЧ;
УКАЗ
черед := ВКЛ;
число := Приём.Число();
полож := число > 0;
ПОКА число # 0 ВЫП
Вывод.Цепь("^");
ЕСЛИ (полож И число > 0) ИЛИ (НЕ полож И число < 0) ТО
черед := ОТКЛ
КОН;
число := Приём.Число();
полож := число > 0
КОН;
ЕСЛИ черед ТО Вывод.Цепь("Чередуются.") КОН
КОН Задание.
1) Каждое из двух чисел, записанных друг за другом, находятся в диапазоне от 0 до 18.
2) Помним про упорядоченность.
а) 112 <- "11" "2" <- "5+6" "1+1" <- "5611"
б) либо 191 <- "1" "91", либо 191 <- "19" "1". В любом случае получаются числа больше 18
в) 1114 <- "11" "14", но 11 < 14. Провал
г) 1519 <- "15" "19", 15 < 19, снова провал
Ответ: а)
Ответ:
13
Объяснение:
Ниже составлена универсальная программа для задач такого типа. Все, что вам требуется-прописать в поле констант g как отрезок, h как целое. Прога выведет количество k отрезков g в бруске или чем-то таком h.
const
g = 1.5;
h = 20;
var
l : real;
k : integer;
begin
l:= 0;
k:= -1;
while l < h do begin
l:= l + g;
k:= k + 1;
end;
write(k);
end.
Ответ: уменьшится в 2 раза
Объяснение:
В 1 байте- 8 битов
В 2 байтов - 16 битов
Т.е. 16/8=2
Ответ: уменьшится в 2 раза
использовать Робот
алг
нач
нц пока снизу не свободно
закрасить
вправо
кц
нц пока снизу свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока справа не свободно
закрасить
вверх
кц
нц пока справа свободно
вверх
кц
нц пока справа не свободно
закрасить
вверх
кц
кон