Не запуская код, ответьте на вопрос: что выведет на экран данная программа? (^ - я так обозначила отступы)
def f(x):
^if x > 0:
^g(x - 1)
def g(x):
^print ('*', end = ' ')
^if x > 1:
^f(x - 3)
f(11)

***

Объяснение:

f(11) 11>0 поэтому вызываем g(10)

g(10) 10>1 поэтому вызываем f(7)

f(7) 7>0 поэтому вызываем g(6)

g(6) 6>1 поэтому вызываем f(3)

f(3) 3>0 поэтому вызываем g(2)

g(2) 2>1 поэтому вызываем f(-1)

f(-1) -1 < 0 поэтому выходим из функции

Далее последовательный выход из вех всех функций.

При каждом вызове функции g() на экран печатается звездочка. Было 3 вызова g(10) g(6) g(2), поэтому на кране будет  три звездочки подряд (***).

============  

Не забывайте нажать " ", поставить оценку и, если ответ удовлетворил, то выберите его как "Лучший"  

Бодрого настроения и добра!  

Успехов в учебе!

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i] mod 2 = 0 then s: =s+a[i];

  writeln('сумма четных элементов =', s);

  readln

end.

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите