Что выведет данная программа?

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.

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;

Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;

Превратить функцию в процедуру function KolDel (n:integer) : integer; var i, k:integer; begin k:=0; for i:=1 to n do if n mod i=0 then k:=k+1; KolDel:=k; end; var m, n, i:longint; mx:byte;

Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;