<span>Информационная деятельность – деятельность, обеспечивающая сбор, обработку, хранение, поиск и распространение информации, а также формирование информационного ресурса и организацию доступа к нему.</span>Информация всегда играла чрезвычайно важную роль в жизни человека. Кто владеет наибольшим объемом информации по какому-либо вопросу, тот всегда находится в более выигрышном положении по сравнению с остальными. Общеизвестно высказывание о том, что тот, кто владеет информацией, тот владеет и миром.С давних времен сбор и систематизация сведений об окружающем мире помогали человеку выживать в нелегких условиях – из поколения в поколение передавался опыт и навыки изготовления орудий охоты и труда, создания одежды и лекарств. Информация постоянно обновлялась и дополнялась – каждое изученное явление позволяло перейти к чему-то новому, более сложному.Со временем большие объемы данных об окружающем мире поспособствовали развитию научно-технического прогресса и, как следствие, всего общества в целом – человек смог научится управлять различными видами вещества и энергии.<span>С течением времени роль информации в жизни человека становилась все существеннее. Сейчас, в первой половине XXI века роль информации в жизни человека является определяющей – чем больше навыков и знаний он имеет, тем выше ценится как специалист и сотрудник, тем больше имеет уважения в обществе.</span>
1.Uses crt;
Var
a:array[10..20] of integer;
i:Integer;
begin
clrscr;
for i:=10 to 20 do
a[i]:=i;
for i:=10 to 20 do
writeln (a[i],',');
End.
2. Var
b:array[2..8] of real;
Var
a:array[1..9] of boolean;
cnt,tmp,cur,all, i:integer;
begin
Writeln('Введите "0", чтобы закончить тестирование досрочно');
for i:= 1 to 9 do begin
tmp:= 1 + random(9);
while a[tmp] = true do
tmp:= 1 + random(9);
Write('8 * ',tmp,' = ');
Read(cur); if cur = 0 then break;
all:= all+1;
if cur = 8*tmp then cnt:=cnt+1 else writeln('Wrong: ', 8*tmp);
a[tmp]:=true;
end;
Writeln(cnt,'/',all);
end.
<u>Пример:</u>
Введите "0", чтобы закончить тестирование досрочно
8 * 8 = 64
8 * 3 = 24
8 * 5 = 45
Wrong: 40
8 * 7 = 0
2/3
Истинность может меняться в высказывании:
2. Потому что погода изменчива.
4. Бывают слова с разным количеством слогов
5. Мне кажется 5-ое тоже, так как смотря какие улицы взять.
Хотя, все же, только 2 и 4
Сообщение - рубикон перейден, сдвиг - 27
Для расшифровки можно использовать программу:
const st='ХШЖНПУТ ФКХКОЙКТ';
var i,j:integer; s:string;
begin
for i:=25 to 30 do
begin
s:='';
for j:=1 to length(st) do
if st[j]<>' ' then s:=s+chr(ord(st[j])+i) else s:=s+' ';
writeln(s);
end;
end.
