Siêu đơn giản luôn ;):
Bản 1 có chú thích:
uses crt;
var i,n,d,k,max:integer;
begin
clrscr;
write('n=');readln(n);
max:=0; d:=0;
while n<>0 do
begin
k:=n mod 10; {dat k bang cho so tan cung ben phai cua n}
if k>max then max:=k; {neu k lon hon max thi gan max bang k}
if k=max then d:=d+1; {neu k=max thi tang dem len 1}
n:=n div 10; {xoa chu so tan cung ben phai cua n}
end;
write('Chu so lon nhat: ',max,'; Xuat hien ',d,' lan');
readln
end.
Bản 2 không có chú thích:
uses crt;
var i,n,d,k,max:integer;
begin
clrscr;
write('n=');readln(n);
max:=0; d:=0;
while n<>0 do
begin
k:=n mod 10;
if k>max then max:=k;
if k=max then d:=d+1;
n:=n div 10;
end;
write('Chu so lon nhat: ',max,'; Xuat hien ',d,' lan');
readln
end.
