Вывести "столбиком" следующие числа : 2, 1 2, 2 2, 3 2, 8.

Var a: real; begin  a: =2;   while a< 2.8   do  begin a: =a+0.1; writeln(a); end; end.

Информация, ее виды и свойства качество информации  – обобщенная положительная характеристика информации, отражающая степень ее полезности для пользователя. показатель качества  – это характеристика отношения «информация – потребитель», одно из важных положительных свойств информации. с научной точки зрения показатель качества характеризует отношение «информация – отражаемый объект» (явление). по способу внутренней организации информацию делят на две группы: 1. данные ( набор сведений). 2. наборы данных (логически сведения). знания представляют собой (в отличие от данных) информацию не о каком-то единичном и конкретном факте, а о том, как устроены все факты определенного типа. свойства информации: • релевантность (способность соответствовать запросам потребителя); • полнота; • своевременность; • достоверность; • доступность; • защищенность; • эргономичность (удобство формы или объема с точки зрения потребителя); • адекватность (однозначное соответствие отражаемому объекту или явлению); • живучесть (способность сохранять свое качество с течением времени); • уникальность (эталонная информация должна храниться в единственном экземпляре). отражение информации не важна природа исходной информации, если существует принципиальная возможность ее преобразования в текст на конечном алфавите. формальные двухбуквенные системы, в силу их тривиальности, составляют основу хранения и обработки информации в современных вычислительных устройствах. аналоговая и дискретная информация. с позиций субъективного подхода информация – это знания, сведения, которыми обладает человек, которые он получает из окружающего мира. с позиций кибернетического подхода информация – это содержание последовательности символов (сигналов) из некоторого алфавита. информативным  называется сообщение, которое пополняет знания человека, т.е. несет для него информацию. количество информации

Const     u=1000; type:   mas=  array [1..u] of integer; var   a: mas;   i,j,k,n: integer; begin   read(n);   for i: =1 to n do     read(a[i]);   for i: =1 to n do   begin     k: =0;     for j: =1 to n do     begin       if a[i]=a[j] then k: =k+1;     end;     write(k,' ');   end;   readln;   readln end. если понравилось поставь лучшее решение! !