Вычислить на паскале: p=(xt)! ; n! =1*2**n; t=1,5? - вопрос №12151516816 от МарияLevkivska 03.03.2020 08:49

Question

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

МарияLevkivska · 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.  ...