Можно ли восстановить рисунок по его двоичной записи содержащие только коды всех пикселей ? как вы решили бы эту проблему ?
​

сначала найдем производную первого порядка

производная из этой функции равна произведению самой функции и производной степени

y'==

теперь второго порядка

тот же принцип из той же функции только домножаем еще на 7/5

y''=

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел. 

var hour: integer;

      minute: string;

begin

  writeln('введите время суток');

  read(hour,minute);

  if (hour> =6) and (hour< 12) then writeln('доброе утро');

  if (hour> =12) and (hour< 18) then writeln('доброго дня');

  if (hour> =18) and (hour< 00) then writeln ('доброго вечера');

  if (hour> =00) and (hour< 6) then writeln ('спокойной ночи');

end.

тут единственный недостаток: после ввода часов нужно нажать enter и минуты вводить на новой строке

uses crt, graph;

var grdr, grmd,i,j,g: integer;

begin

grdr: =detect;

initgraph(grdr, grmd,’c: \bp\bgi’);

setbkcolor(lightgray);

g: =getbkcolor;

i: =20; j: =20;

begin

setcolor(red);

setfillstyle(1,red);

fillellipse(i,j,5,5);

delay(3000);

setfillstyle(1,g);

fillellipse(i,j,5,5);

i: =i+random(3);

j: =j+random(2);

end;

readln;

end.