Факториал (Pascal)

[starlet]

Задача :
Найти все такие N,что в числе N! сумма цифр будет делиться на 9.

Помоги пожалуйста!Не могу разобраться как это сделать через подрограммы

[Sazary]

Посмотрите вниз в "Похожие темы". Первая же ссылка - то, что вам нужно.

upd Извиняюсь, не заметил задания.. Видимо, не туда посмотрел..

[Veselyn]

program faktorial;
Var
   n, f, i: integer; 
begin
Write ('n! ');
 Readln(n);
  f:=1;
  i:=1;
  While i<=n do
    begin
      f:=f*i;
      inc(i);
if f mod 9 = 0 then
write (f,'  ');
    end;   
readln;
 end.

[Plague]

есть признак деления числа на 9.
если сумма цифр числа делится на 9, то и само число делится на 9. и наоборот.
следовательно фактариал нужно вычислять по модулю 9.

var n,i,k:longint;
begin
readln(k);
n:=1;
for i:=1 to k do
begin
n:=(n*i) mod 9;
if n=0 then writeln(i);
end;
end.

a вообще задача очень странная начиная с 6, факториал числа всегда делится на 9.

[starlet]

это не совсем то,что нужно...это задание на тему многоразрядные числа...т.е. числа будут очень большие.. например 100! и т.п.

число должно быть представлено как массивсвоих цифр...
короче я уже запуталась по полной программе...

[Sazary]

это не совсем то,что нужно...это задание на тему многоразрядные числа...т.е. числа будут очень большие.. например 100! и т.п.

В таком случае, почитайте про длинную арифметику.

[starlet]

читала...как видите не помогает

[Sazary]

Сообщение от starlet

читала...как видите не помогает

Честно говоря, не вижу.
Скажите что конкретно вы не понимаете?

Сообщение от starlet

число должно быть представлено как массивсвоих цифр...

Как видите, вы уже что-то знаете.

Массив цифр. Более эффективно будет держать в одном элементе, например, 4-х-значное число, но пусть будет по одному.
Умножение проводится столбиком. Также, как вы это делаете на бумаге.

[starlet]

я не понимаю как это реализовать в виде операторов..я понимаю,что каждая цифра числап должна быть элементом массива....понимаю,что они они перемножаются по разрядам,но как это записать не знаю...
туплю по полной программе...

[Sazary]

Вот. Находит

все такие N,что в числе N! сумма цифр будет делиться на 9.

на заданном интервале.

uses crt;
const KOL = 1;
OSN = 10;
type massiv = array[1..100] of integer;
var
chislo : longint;
min, max, i : integer;

{-------------}
 
procedure vyvod(mas : massiv; n : integer);
var i : integer;
begin
{writeln; }
for i:=n downto 1 do
 write(mas[i]);
writeln;
end;

{----------}

procedure umn(k : integer; var mas : massiv; var n : longint);
var i,ost : integer;
begin
ost := 0;
i := 1;
repeat
mas[i] := mas[i]*k + ost;
ost := mas[i] div OSN;
mas[i] := mas[i] mod OSN;
inc(i);
until (i>n);

while ost>0 do
 begin
 inc(n);
 mas[n] := ost;
 mas[n] := mas[n] mod OSN;
 ost := ost div OSN;
 end;

end;


procedure check(num : longint);
var n : integer;
k,i : longint;
mas : massiv;
S : longint;
begin
n := 0;
k := num;
while num>0 do
 begin
 inc(n);
 mas[n] := num mod OSN;
 num := num div OSN;
 end;

for i:=k-1 downto 2 do
 begin
 umn(i,mas,n);
 end;

S := 0;
for i:=1 to n do
 S := S + mas[i];

{vyvod(mas,n);  }

if S mod 9 = 0 then
 vyvod(mas,n);

end;


begin
clrscr;

write('Vvedite granicu sleva: ');
readln(min);
write('Vvedite granicu sprava: ');
readln(max);

writeln;
for i:=min to max do
 check(i);

readln;
end.