Вычислить на паскале: p=(xt)! ; n! =1*2**n; t=1,5? - вопрос №121521516473 от jullii55 15.07.2020 18:21

Question

Информатика: Вычислить на паскале: p=(xt)! ; n! =1*2**n; t=1,5? если x-чётное t=2, если х-нечётное

jullii55 · Answer

var   x, i, p:integer; begin   write( x = ); readln(x);   if x mod 2 = 0 then      x := trunc(x * 1.5)   else     x := x * 2;   p := 1;   for i := 2 to x do     p := p * i;   writeln( p = , p); end.  ...