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

Question

Информатика

Тема

1 мая, 22:18

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

+3

Ответы (1)

Знаете ответ на вопрос?

Кирюня · Answer 1

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.

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

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