3 вариант, все остальное рассуждение.
Если да, то
0001 - 1
0010 - 2
0100 - 4
1000 - 8
10000 - 16
25 = 16 + 8 + 1 = 11001
12 = 8 + 4 = 1100
Ответ:
program TestN;
var
n: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
if (n >= 100) and (n <= 999) and (n mod 2 <> 0) then
WriteLn (N, ' является нечетным трехзначным числом.')
else
WriteLn (N, ' не является нечетным трехзначным числом.');
ReadLn;
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Println(Tan(Exp(4) / 7 + (Pi * (ArcSin(0.27) - Cos(DegToRad(75))))
** (1 / 6)) / (Ln(5) + Log10(7)) * Tan(5 ** 4
- Range(1, 6).Aggregate(1, (p, q)-> p * q)))
end.
<h2>0.630443611995394</h2>
Во вложении приведен результат контрольного решения, выполненный в пакете компьютерной алгебры Maple15 и выведенный с 20 значащими цифрами.
1. 5 раз
2. 6
3.32
4. 5 раз
5. 0
6. Произойдёт зацикливание, т.е. программа не закончится. Цикл будет продолжаться бесконечно
8. 3 раза
9. Множество раз, т.к. произойдёт зацикливание