SaveText.Ru

0004Д
  1. var x,m,n: integer;
  2. begin
  3. readln (x);
  4. m:=0;
  5. n:=0;
  6. while x>0 do
  7. begin
  8. if n<x mod 10 then n:=x mod 10;
  9. m:=m+1;
  10. x:=x div 10;end;
  11. writeln (m);write(n)
  12. end.

Share with your friends:

Print