)) для заданного натурального числа n вычислить значение его факториала n! =1*2**n

var a: array [1..1000] of integer;

fac,i,n: integer;

begin

readln(n);

fac: =1;

for i: =1 to n do begin

a[i]: =i;

end;

for i: =1 to n do begin

fac: =fac*a[i];

end;

writeln(fac);

end.

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.