profile


Опубликовано 4 года назад по предмету Информатика от kapsalim

N¤~¤Factorial- это произведение всех чиселот 1 доN . Для заданного числа N определите , сколько нулей в конце десятичной записи N ¤-¤Factorial. pomagite pojaluistA

  1. Ответ
    Ответ дан zhaina74
    Только с олимпиады, много лишнего(наверно) но как есть.
    uses crt;
    var a,s,f,i:integer;
        f1,s1:string;
        r,g:text;
    begin
    assign (r,'C:Ain.txt');
    reset (r);
    readln (r,a);
    close (r);
    f:=1;
    for i:=2 to a do
    f:=f*i;
    str(f,f1);
    for i:=1 to length(f1) do
    begin
    s1:=copy(f1,1,1);
    if s1<>'0' then
    delete(f1,1,1);
    end;
    for i:=1 to length(f1) do
    begin
    s1:=copy(f1,1,1);
    if s1='0' then
    s:=s+1;
    end;
    assign (g,'C:Aout.txt');
    rewrite (g);
    writeln (g,s);
    close(g);
    end.


Другие вопросы