Односвязный список имеет следующую структуру узла

typedef struct node {
int value;
struct node *next;
} node;
Напишите функцию find(корень, значение), которая возвращает указатель на узел, имеющий заданное значение. Если такого значения нет, то функция должна возвращать NULL.

#include
#include
typedef struct node {
int value;
struct node *next;
} node;
// определение функции find
...
int main()
{ node *root=NULL;
// root->NULL
add(&root,1);
// root->[1]->NULL
add(&root,2);
// root->[2]->[1]->NULL
node *n1=find(root,1);
if(n1) n1->value=3; // заменим 1 на 3
n1=find(root,1);
if(n1==NULL) printf("NULL\n"); // NULL
}

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

end.

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

вроде бы 100*100=10000 бит=1250 байта

program risovalka;

  uses  crt,graphabc;

    var  xc,yc,r1,r2,rc,ro,n,i,x,y: integer;

  a: real;

    begin  repeatwrite('ykashi shislo otverstii ot 5 do 10 n=');

      read(n);

    until  n  in  [5..10];

    clrscr; hidecursor;

    xc: =windowwidth  div  2;

    yc: =windowheight  div  2;

    r1: =40;

    r2: =120;

    rc: =100; ro: =30;

    a: =2*pi/n;

    circle(xc,yc,r2);

    circle(xc,yc,r1);

      for  i: =1  to  n  do    begin    x: =xc+round(rc*cos(a*i));

      y: =yc-round(rc*sin(a*i));

      circle(x,y,ro);

        end.