Надо ! 1. составить алгоритм табулирования функции: y=lg(x+x^2)-8; x[-0.5; 15]; h=1.

// pascalabc.net 3.3, сборка 1573 от 04.11.2017// внимание! если программа не работает, обновите версию! begin  var r: =readreal('введите вещественное число: ');   var n: =trunc(1000*frac(r));   var s: =0;   while n> 0 do begin      s+=n mod 10;       n: =n div 10      end;   writeln('сумма трех первых цифр дробной части: ',s); end. пример введите вещественное число: 3.141592 сумма трех первых цифр дробной части: 6

Const n=3; m=2; var  k,d: array[1..n,1..m] of integer; i,j: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     k[i,j]: =random(10)-3;     write(k[i,j]: 4);   end;   writeln;   end; writeln('полученный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin   d[i,j]: =2*k[i,j];   write(d[i,j]: 4);   end;   writeln;   end;   end. пример: исходный массив: -2 0  6 1  2 -2полученный массив: -4 012 2  4 -4