на столе все чисто лежит только.: пенал ,черновик ,учебник, тетрадь .
Современный Паскаль все сделает сам...
<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x='); Writeln('F=',1/(x-1))
end.
<u>Примеры</u>
x= -3.5
F=-0.222222222222222
x= 1.000001
F=1000000.00008227
x= 1
F=бесконечность
<em>uses crt;(если используешь абс паскаль) </em>
<em>var n,b,k:integer;</em>
<em>begin</em>
<em>writeln ('n'); </em>
<em>readln (n);
k:=n mod 2;
</em><em>b:=n mod 10;</em>
<em>if k = 0 then writeln (b);</em>
<em>end.</em>
Троичная - 0,1,2,10,11,12,20,21,22,100,101,102,110,111,112
Пятеричная - 0,1,2,3,4,10,11,12,13,14,20,21,22,23,24
Шестнадцатеричная - 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E