1. Выберите номер фрагмента программы, выполняющего такие же действия, что
и приведенный ниже:
for i:= 2 to 6 do begin x:=x+2*i;
x:=x+1;
end;
1) i:=2; while i< 6 do begin x:=x+2*i;
x:=x+1;
i:=i+1;
end;
2) i:=2; while i<= 6 do begin x:=x+2*i;
x:=x+1;
end;
3) i:=2; while i<=6 do begin x:=x+2*i;
x:=x+1;
i:=i+1;
end;
2.Определите значение переменной X после выполнения следующего фрагмента
программы:
x:=1;
repeat
x:=x+2;
x:=x+1;
until x>10;
3.Выберите аналогичный фрагмент приведенному выше, но записанный с цикла while.
1. X:=1;
While x>10 do begin x:=x+2; x:=x+1; end;
2. X:=1;
While x<10 do begin x:=x+2; x:=x+1; end;
3. X:=1;
While x<=10 do begin x:=x+2; x:=x+1; end;

3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию.
4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык).
5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом.
6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности  ее использования.
7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия) 

Uses GraphABC;
var a,b,c:array[10..99] of integer;
 ast,bst,cst:string;
 i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.