Помогите пожалуйста с задачей

[Аля321]

с использованием циклов :
Составьте программу вычисления значения
М= система ( 1) k^9 т.е. в девятой степени если k больше или равно 9; 2) k! если k меньше 9)
я начала делать

program z3;
var k,m,n:integer;
begin 
     m:=1;
     readln (k);
if   k>=9 then  for n:=1 to 9 do
                 m:=m*n;
          writeln('m=',m);
          else

а дальше как второе условие с факториалом записать не знаю,первое наверно правильно , помогите пожалуйста




https://drive.google.com/file/d/0B9L...ew?usp=sharing

[min@y™]

оригинал задания дай посмотреть.

[Аля321]

https://drive.google.com/file/d/0B9L...ew?usp=sharing

[min@y™]

у тебя аккумуятор сел.
alt + prscr гораздо лучше.
могу подарить оффис 2013. практически совсем лицензионный.

function M(k: Byte): LongWord;
const
  fact: array[0..8] of LongWord = (1, 1, 2, 6, 24, 120, 720, 5040, 40320);
var
  idx: Byte;
  temp: LongWord;
begin
  if k < 9
    then M:= fact[k]
    else begin // 12^9 уже не влезают в 32 бита.
           temp:= k;
           
           for idx:= 1 to 8 do
             temp:= temp * k;
             
           M:= temp;
         end;
end;

[Аля321]

нет спасибо оффис не нужен, а вы знаете как решить факториал?

[min@y™]

а вы знаете как решить факториал?

см. код в посту #4.

[Stilet]

Факториал решается циклом.
Что-то типа:

fac:=1;
while k>0 do begin fac:=fac*k; dec(k); end;

Кстати степень можно посчитать так:

exp(9*ln(k));

P.S. Минай опередил...

[Аля321]

всем спасибо за помощь, премного благодарна

[Аля321]

Stilet, спасибо