Что выведет данная программа? program p1; var z: integer; function f (n: byte): longint; begin if n=0 then f: =1 else f: =(2*n)*f(n-1); end; begin z: =f(5); writeln (z); end.

выдаст произведение следующих чисел

2*5*2*4*2*3*2*2*2*1=3840

программа на паскале:

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.