Ðề: Thi HS giỏi cấp tỉnh
GIẢI ĐỀ TIN HỌC
Bài 1:
Program Bai1;
var m,n,a:integer;
begin
readln(a);
m:=0;
while (a>1) and (a mod 3 =0) do
begin
a:= a div 3;
inc(m)
end;
n:=0;
while (a>1) and (a mod 5 =0) do
begin
a := a div 5;
inc(n)
end;
if ( m>0) or (n>0) then
writeln('Co. m=',m,',n=',n)
else
writeln('Khong.');
readln
end.
__________________
Necessity is the mother of in(ter)vention.
Speak softly & carry a big stick.
My Technical Blog
|