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

284

325

Посмотреть ответы 2

Ответы на вопрос:

erro14

Информатика

4,8(51 оценок)

Только с олимпиады, много лишнего(наверно) но как есть. 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.

KateHe

Информатика

4,5(56 оценок)

//не уверена в этом var f: file of real; r: integer; function negativ(var f: file of real): integer; var r: real; k: integer; begin; assign(f,'text.txt'); reset(f); while not(eof(f)) do begin; read(f,r); if r< 0 then inc(k); end; close(f); negativ: =k; end; begin; r: =negativ(f); writeln(r); end.