1. у исполнителя сигма две команды, которым присвоены номера: 1. прибавь 4; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2 выполняя первую из них, сигма увеличивает число на экране на 4, а выполняя вторую, делит это число на b. программа для исполнителя сигма — это последовательность номеров команд. известно, что программа 11211 переводит число 49 в число 27. определите значение b. 2. у исполнителя гамма две команды, которым присвоены номера: 1. прибавь 3; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). выполняя первую из них, гамма увеличивает число на экране на 3, а выполняя вторую, умножает это число на b. программа для исполнителя гамма — это последовательность номеров команд. известно, что программа 11121 переводит число 3 в число 75. определите значение b. 3. у исполнителя омега две команды, которым присвоены номера: 1. прибавь 4; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). выполняя первую из них, омега увеличивает число на экране на 4, а выполняя вторую, делит это число на b. программа для исполнителя омега — это последовательность номеров команд. известно, что программа 12111 переводит число 41 в число 17. определите значение b. 4. у исполнителя альфа две команды, которым присвоены номера: 1. прибавь 1; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). выполняя первую из них, альфа увеличивает число на экране на 1, а выполняя вторую, умножает это число на b. программа для исполнителя альфа — это последовательность номеров команд. известно, что программа 11211 переводит число 3 в число 62. определите значение b. 5. у исполнителя альфа две команды, которым присвоены номера: 1. прибавь 2; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). выполняя первую из них, альфа увеличивает число на экране на 2, а выполняя вторую, делит это число на b. программа для исполнителя альфа — это последовательность номеров команд. известно, что программа 11211 переводит число 50 в число 22. определите значение b.
Ответы
//1. Переборный алгоритм Евклида (цикл repeat)
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
2) напишите программу: ввести с клавиатуры матрицу m x n. найти сумму ее четных элементов.
Автор: artem-whitenoise142
Информатика Чему равен z, если k:=3
Автор: parolmm
Кто отличник по информатике и знает хорошо ее
Автор: pavlino-mkr
Создадим второго слона. Для этого надо выполнить все 4 команды:
1,2,3,4.
Второй слон стал на 80% меньше первого.
Создадим третьего слона.
Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон.
Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4.
Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз.
ответ: В) повторить (1,2,3,4; 6)