Перевод из pascal в qbasic program dekio; varnstr : string; i, ksl : integer; beginksl: =0; writeln('введите строку'); readln(nstr); for i: =1 to length(nstr) doif (nstr[i]='.') or (nstr[i]=' ') theninc(ksl); writeln('количество слов ', ksl); end.

1)часть гипертекстового документа ссылающаяся на другой элемент (команда, текст, заголовок, примечанию изображения) в самом документе на другой объект( файл, каталог,приложение) расположенный на локальном диске или в компьютерной сети, либо на элементы этого объекта.

2)Согласно источнику с днём я помню чтобы делать сноски в Word Также можно воспользоваться комбинацией клавиш для вставки обычной сноски в Word комбинация клавиш-Ctrl+Alt+F.

3)для вставки концевой сноски в ворде-Ctrl+Alt+D

5)Выделите текст или Объект, который должен представлять гиперссылку; щелкните его правой кнопкой мыши и выберите пункт ссылка; в разделе Связаться выберите параметр место в документе; в списке выберите заголовок при закладку на которую должны указывать гиперссылка.

6)понятие авторского права под авторским правом понимается совокупность имущества и личных неимущественных прав принадлежащие автору творческим трудом которого создано произведение науки литературы или искусства. исключеные не исключеные авторские права

7) в ворд оглавление состовляет по спискуформатирование заголовка в тексте. то есть, чтобы сделать оглавление в Word, необходимо чтобы у вас в тексте были заголовки отформатированные при авто стиля заголовок 1 заголовок, 2 и других, в зависимости от уровня заголовка

8)1этап: установить в тексте курсор на 1 заголовок; 2этап команды ссылке добавить текст присвоить уровень будущего оглавления (1,2,3) 3 этап: применить данную операцию ко всем заголовкам текстом; 4 этап: установить курсор вместо вставки оглавления в начале документов; 5 этап: команда ссылки оглавления выбрать виды оглавление.

1)

var

 D: array[1..20] of integer;

 i, min: integer;

begin

min := 100; // минимальное значение

for i:=1 to 20 do

begin

  D[i] := random(100);

  if D[i] < min then

    min := D[i];

end;

write(min);

end.

2)

var

 B: array[1..30] of integer;

 i, sum, count: integer;

 srAr: real;

begin

 count := 0; // количество чисел больших среднего арифметического

 sum := 0; // сумма всех чисел массива

 for i := 1 to 30 do

 begin

   B[i]:= random(30) + 20;

   sum := sum + B[i];

 end;

 srAr := sum / 30; // среднее арифметическое

 

 for i := 1 to 30 do

   if B[i] > srAr then

     count := count + 1;

   

 write(count);

end.