1) 5 вопросов (так как 2^5=32)
2) 9 вопросов (так как 2^9=512)
3) 9 вопросов (2^8=256 8 вопросов мало)
4) 10 вопросов
Всё просто
5 + 23 = 28
28 + 35 = 63
63 - 27 = 36
36 > 10? да ⇒ 36 + 5 = 41
41 / 2 без остатка? нет⇒ ничего
41 нечётное? да ⇒ 41 * 2 = 82
Вывод 82
конец
В прикрепленном изображении указаны формулы, необходимые для решения этой задачи. Код программы приведен ниже.
Удачи!
var a1, a5, an, d, sum, n : integer;
begin<span>
readln(a1, a5, n);<em>{получаем на вход первый и пятый члены прогрессии и число n}</em></span><span>
d := (a5 - a1) div 4; <em>{Находим разность прогрессии}</em></span><span>
an := a1 + (n - 1) * d;<em>{Находим член прогрессии с номером n}</em></span><span>
sum := ((a1 + an) * n) div 2; <em>{Находим сумму первых n членов прогрессии}</em></span><span>
writeln('n-ый член прогрессии: ', an);</span><span>
writeln('Сумма первых n членов прогрессии: ', sum);
</span>end.<span>
</span>
Var
a, b: integer;
Begin
Writeln('Введите 2 числа');
Read(a,b);
if (a*b mod 3 = 0) then Writeln('Произведение чисел ', a, ' и ', b, ' делится нацело на 3')
else Writeln('Произведение чисел ', a, ' и ', b, ' нацело на 3 не делится');
end.