<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses NumLibABC;
begin
var oL:=new Zeroin(x->Ln(x)-(0.5/Sqr(x)),1e-8);
Writeln('x=',oL.Value(0.1,1.5):0:8)
end.
<u>Пример с точностью 10⁻⁸</u>
x=1.32786401
<u>Замечание:</u> Исходный текст класса Zeroin в составе библиотеки численных методов NumLibABC находится в стандартной поставке PascalABC.NET
3 задание
1)775,11 = 1000101111,1111 (2 система счисления)
2)271,34= 100001111,100010 (2с.с)
3)1566,28= 11000011110,1 (2с.с)
4)65,2= 1000001,1 (2с.с)
3 задание (2)
1001010 = 4А (16 с .с ) , 11,5 ( 8 с.с ) , 74 (10 с.с.)
1100111 = 67 (17 с.с. ) , 147 ( 8с.с.) 83 ( 10 с.с )
110101101,00011 = 1АD (16с.с.) 655 (8 с.с. ), 429 (10 с.с.)
111111100,0001 = 1FC,1 (16c.c) , 774,08 (8 c.c) 504,5 (10 с.с)
Var p real;
begin
readln(p);
if (p>40) and (x<60) then writeln ('Первая категория');
if (p>61) and (x<75) then writeln ('Вторая категория');
if (p>76) and (x<100) then writeln ('Третья категория');
readln;
end,
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.