К<span> </span>фактам<span> </span>относятся <em />знания об определённых явлениях
Var n: integer;
function oct(x: integer): string;
var s: string;
begin
while x > 0 do
begin
s := IntToStr(x mod 8) + s;
x := x div 8;
end;
Result := s;
end;
begin
write('Введите число: ');
readln(n);
writeln('Восьмиричная форма: ', oct(n))
<span>end.</span>
Лови)
var
x: real;
begin
x := 1;
while x <= 5 do
begin
writeln('y(', x:1:1, ') = ', ln(x) - exp(-1 * x));
x := x + 0.1;
end;
end.
<span>program if1;
var
a: integer;
begin
read(a)
;
if a > 0 then Inc(a);
write(a);
end
<span>может быть это ?.</span></span>