1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Program A2_7;

Var

  n,n1,q,qmax:integer;

  begin

    readln(n);

    n1:=n; qmax:=0;

    while(n1<>0) do

      begin

        q:=n1 mod 10;

       if (q>qmax) then qmax:=q;

       n1:=n1 div 10;

      end;

    writeln(qmax);

    readln;

   end.

// Program A2.7;

#include <iostream>

using namespace std;

int main()

{ int n,n1,q,qmax=0;

   cin>>n;

   n1=n;

   while(n1)

   { q=n1%10;

       if (q>qmax) qmax=q;

       n1=n1/10;

   }

   cout<<qmax<<endl;

   return 0;

}