Мне решить кроссворд.заранее .всего 10 пунктов. 1)количественные характеристики объектов окружающего мира-это информация. (8 букв) 2)последовательность изображений-фильмы, мультфильмы и т.д. (15 букв) 3)зрение, обоняние, слух, вкус, осязание-всё вместе это (два слова, 6 букв первое слово, 6 букв второе слово) 4)информация, представленная в форме, пригодной для хранения, передачи и обработки компьютером. (6 букв) 5)рисунки, схемы, карты, фотографии и т.д.-это информация. (11 букв) 6)устройство, человеку хранить, передавать и обрабатывать информацию. (9 букв) 7)знания, получаемые в школе, сведения из книг, телепередач и т.д. (10 букв) 8)всё, что мы слышим, -это информация (8 букв) 9)наука, занимающаяся изучением передачи, хранения и обработки информации. (11 букв) 10)всё, что напечатано, написано на любом языке, -это информация. (9 букв) большое!

1)Числовая
2)Видеоинформация
3)Органы-чувств
4)Данные
5)Графическая
6)Компьютер
7)Информация
8)Звуковая
9)Информатика
10Текстовая

function Len(x1,y1, x2, y2:real):real;

begin

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

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;

begin

   write('x1 = '); readln(x1);

   write('y1 = '); readln(y1);

   write('x2 = '); readln(x2);

   write('y2 = '); readln(y2);

   write('x3 = '); readln(x3);

   write('y3 = '); readln(y3);

   write('x4 = '); readln(x4);

   write('y4 = '); readln(y4);

   write('x5 = '); readln(x5);

   write('y5 = '); readln(y5);

   writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));

end.

 

function Len(x1,y1, x2, y2:real):real;

begin

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

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;

begin

   write('x1 = '); readln(x1);

   write('y1 = '); readln(y1);

   write('x2 = '); readln(x2);

   write('y2 = '); readln(y2);

   write('x3 = '); readln(x3);

   write('y3 = '); readln(y3);

   write('x4 = '); readln(x4);

   write('y4 = '); readln(y4);

   write('x5 = '); readln(x5);

   write('y5 = '); readln(y5);

   writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));

end.