1. Узнаем кол-во символов в тексте:
410*43*53=934390 символов
2. Узнаем время выполнения:
934390/133 приблизительно равно 7025 минут = 117 часов = 4,9 суток
¬(1 ∧ (0 ∨ (1 ∧ 0))) ∧ (¬(0 ∨ 1)) = ¬(1·(0+0))·(¬1) = ¬(1·0)·0 = 0
Первый способ:
Var n:longint;
Begin
Write('n = ');ReadLn(n);
n:=n*n;
if frac(Ln(n)/Ln(10)) > 0 then WriteLn(int(Ln(n)/Ln(10))+1)
else WriteLn(Ln(n)/Ln(10))
End.
Второй способ:
Var
n,k:longint;
Begin
Write('n = ');ReadLn(n);
k:=0;
n:=n*n;
While n > 0 do
Begin
k:=k+1;
n:=n div 10
End;
WriteLn(k);
End.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, d, r) := ReadInteger3;
var (km, kd) := (r div m, r div d);
for var i := 0 to km do
for var j := 0 to kd do
if i * m + j * d = r then Println(i, j)
end.
<h2>Пример</h2><h3>2000 3000 20000</h3><h3>1 6 </h3><h3>4 4 </h3><h3>7 2 </h3><h3>10 0 </h3>
32 = 2 в 5 степени
Значит достаточно 5 битов