Вычислить на паскале: p=(xt)! ; n! =1*2**n; t=1,5? - вопрос №121521516648 от Irina12345678901 02.03.2022 13:59

Question

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

Irina12345678901 · 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.  ...