В компьютере предел значения
можно приблизительно найти, как
где 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
Var N, F, i :integer;
begin
writeln('введите число');
ReadLN(N);
F:=1;
for i:=1 to N do F:=F*N;
write('факториал числа ',N,' = ',F);
end.
Это же легко смотри объясню у тебя число 111001 и значит перевести это число переписываешь с заду на перед тоесть 100111
M:= 0.85
c:= 23.4
For i:= 1 to 10 do
Begin
a:= m*(I*5) + c;
WriteLn(a);
End;