var i: integer;
begin
for i := 1000 to 9999 do
if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40
then writeln(i)
<span>end.</span>
K=7 символам(без точки)
i=12
I=i*k
I=7*12=84 бит
k=8 символам(с точкой)
i=12
I=8*12=96 бит
Пожалуйста
Противоположные - я выучил информатику / я не выучил информатику (а и не а)
Противоречащие - В сутках 24 часа/Я учил информатику 25 часов в сутки