Question

Viết chương trình nhập vào số nguyên n(0<n<=10¹⁸). Phân tích n ra thừa số nguyên tố, đếm số lượng thừa số 5 trong phân tích đó

Answer 1

uses crt;
var i,n,dem,d:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
write('n=');
i:=2;
dem:=0;
repeat
while n mod i<>0 do
inc(i);
begin
write(i);
inc(dem);
a[dem]:=i;
end;
n:=n div i;
if n>1 then write('*');
until n=1;
d:=0;
for i:=1 to dem do
if a[i]=5 then inc(d);
writeln;
writeln('Co ',d,' thua so 5 trong phan tich');
readln;
end.