Рабочий код во вложениях. Удачи.
P.s. Комментарии 1) // первая цифра числа //
2) // вторая цифра числа //
3) // третья цифра числа //
Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.
Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>
В компьютере предел значения
можно приблизительно найти, как
где max(real) - максимальное число, представимое в компьютере.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
Writeln((real.MaxValue-1)/real.MaxValue)
end.
<u>Результат</u>1
Ответ:
В номере 12 ответ под Г, только он даст 1 в итоге.
Номер 11.
Ж) из-за того, что в первой скобке будет 0, а между скобками умножение, то в итоге будет 0.
З) в первой скобке в любом случае будет 1, а между скобками сложение, и если в первой скобке уже один, то и всё выражение будет равно 1.
И) между скобкой и 1 сложение, то в итоге будет 1, чтобы ни было в скобке.
К) там нет выражения, а нужно умножить на 0, значит будет 0, но между единицей и этим выражением нет знака, поэтому я не могу решить. Ответь в комментарие, если узнаешь знак.