Ниже записан рекурсивный алгоритм f. чему равна сумма напечатанных на экране чисел при выполнении вызова f(10)? procedure f (n: integer); begin if n > 2 then begin writeln (n); f (n-3); f (n-4) end end;

Для удобства прономерую строки:

1) procedure F (n:integer);
2) begin
3) if n > 2 then begin 
4) writeln (n);
5) F (n-3);
6) F (n-4)
7) end
8) end;

-первый вызов- со входным параметром n=10
-в строке 3 проверяется, что n больше двух,
-так как n действительно больше двух, то выполняются три следующие строки № 4,5,6 (а строка 7 -это указатель конца блока, выполняемого при истинности проверки)
-строка 4 печатает значение n, то есть 10
-строка 5 вызывает этот алгоритм вновь, со входным параметром 7
-строка 6 опять вызывает алгоритм, со входным параметром 6
И в каждом вызове будут ещё два вызова, со входными параметрами на три и четыре меньше, чем был
И так далее, каждый вызов будет вновь вызывать алгоритм, и печатать n до тех пор, пока n будет больше двух.

итак, получим ветвление вызовов, и вот значение n в каждом из них:
    10
     7                   6
  4     3            3     2
1 0  0 -1        0 -1

но, не все из этих n будут напечатаны, а только те, которые больше двух. если по порядку, то вот что будет напечатано:
10
7
4
3
6
3

сумма всех этих чисел равна 33

ответ: 33.

Итак, вот ответы:

1) 3. небольших общественных веб-сайтов.

2) 4. текстовом процессоре Word.

3) 3. веб-дизайн.

4) 4. html.

5) 1. структуру и содержание.

6) 2. не пишите слишком длинных текстов. текст разбивайте на небольшие абзацы, отделяя их друг от друга пустыми строками.

4. названия пунктов меню делайте краткими; недопустимо     растягивание названия пункта на несколько строк.

7) 4. шаблон.

все ответы на 100% верны, можете не волноваться. сама только, что тест и решила поделиться с вами правильными ответами. была рада удачи на экзаменах.)

program sorting;

const

 N = 10;

var

 v: array[1..N] of integer;

 d: integer;

 i, t: integer;  

 k: boolean;  

begin

 randomize;

 write('ДО сортировки:    ');

 for i := 1 to N do

 begin

   readln(v[i])

   write(v[i]:6);

 end;

}  

 d := N div 2;

 while(d > 0) do

 begin

   k := true;  

   while k do

   begin

     k := false;

     i := 1;

     for i := 1 to N - d do

     begin

       if(v[i] > v[i + d]) then

       begin

         t := v[i];

         v[i] := v[i + d];

         v[i + d] := t;

         k := true;

       end;

     end;

   end;    

   d := d div 2;

 end;

 writeln;

 write('ПОСЛЕ сортировки: ');

 for i := 1 to N do

   write(v[i]:6);

 writeln;

end.