Эта компания была основана 1 января 1939 года двумя друзьями для производства тестирующего и измеряющего оборудования. ныне это крупная амерканская компания - поставщик офисного оборудования и программного обеспечения. выберите её логотип: а) dell б)nokia в)hp г)ibm

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

program xxx;

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

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.