121(10)=171(8)=1111001(2)=79(16)=121(10)
Var b,c:real;
<span>begin </span>
<span>b:=1; </span>
<span>c:=2; </span>
<span>repeat </span>
<span>b:=b+1; </span>
<span>c:=c*b; </span>
<span>until b=4; </span>
<span>writeln('Да'); </span>
<span>end. </span>
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(-40,40,14).Select(x->x/10).Tabulate(x->x*x+2).Println;
Range(-4,4).Tabulate(x->x*x+2).Println;
end.
<u>Результат</u>
(-4,18) (-2.6,8.76) (-1.2,3.44) (0.2,2.04) (1.6,4.56) (3,11)
(-4,18) (-3,11) (-2,6) (-1,3) (0,2) (1,3) (2,6) (3,11) (4,18)
1024 это 2 в 10 степени. Вычисляем сколько символов в тексте - 714000. 714000*10=7140000 бит