Информация — от латинского слова "information", что означает сведения, разъяснения, изложение.
Информацией называют любые данные или сведения, которые кого-либо интересуют.
Информация — сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые воспринимают информационные системы (живые организмы, управляющие машины и др.) в процессе жизнедеятельности и работы.
Одно и то же информационное сообщение (статья в газете, объявление, письмо, телеграмма, справка, рассказ, чертёж, радиопередача и т.п.) может содержать разное количество информации для разных людей — в зависимости от их предшествующих знаний, от уровня понимания этого сообщения и интереса к нему.
В случаях, когда говорят об автоматизированной работе с информацией посредством каких-либо технических устройств, интересуются не содержанием сообщения, а тем, сколько символов это сообщение содержит.
Применительно к компьютерной обработке данных под информацией понимают некоторую последовательность символических обозначений (букв, цифр, закодированных графических образов и звуков и т.п.), несущую смысловую нагрузку и представленную в понятном компьютеру виде. Каждый новый символ в такой последовательности символов увеличивает информационный объём сообщения.
1) var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;
writeln;
for i:=1 to 10 do
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);
end.
2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: ');
for i:=1 to n do
read(a[i]);
s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.
Var
k,n,x,d: integer;
begin
read(k,n);
for x := k to n do
if x mod 10 = 3 then
begin
d := 2;
while x mod d <> 0 do d := d + 1;
if x = d then write(x,' ');
end;
end.
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:integer;
repeat
n:=ReadInteger;
if n>0 then begin
var d:=false; // нужны цифры
var a:=false; // нужны буквы
repeat
var r:=n mod 16;
if r in [0..9] then d:=true
else a:=true;
n:=n div 16
until (d and a) or (n=0);
if a and d then Writeln(3)
else
if a then Writeln(1)
else Writeln(2);
n:=-1 // чтобы из цикла не выйти
end
until n=0
end.
<u>Пример</u>
13
1
15
1
9
2
27
3
0
3 , так как он поднялся вверх и находился C:\Doc\Class\9v\Topic\Algebra и туда переместил файл
