Введите ответ в поле ввода

Бейсик

Python

DIM X, A, B, C AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

  C = X MOD 10

  A = A + C

  IF C > B THEN B = C

  X = X \ 10

WEND

PRINT A

PRINT B

x = int(input())

a = 0

b = 0

while x > 0:

    c = x % 10

    a = a + c

    if c > b:

        b = c

    x = x // 10

print (a)

print (b)

Алгоритмический язык

Паскаль

алг

нач

     цел x, a, b, c

     ввод x

     a := 0; b := 0

     нц пока x>0

       c := mod(x,10)

       a := a+c

       если c>b

         то b := c

       все

       x := div(x,10)

     кц

     вывод a, нс, b

кон

var x, a, b, c: integer;

begin

  readln(x);

  a := 0; b := 0;

  while x>0 do

  begin

     c := x mod 10;

     a := a+c;

     if c>b then b := c;

     x := x div 10

  end;

  writeln(a); write(b)

end.

Си

#include

void main()

{

  int x, a, b, c;

  scanf("%d", &x);

  a = 0; b = 0;

  while (x>0) {

    c = x%10;

    a = a+c;

    if (c>b)

      b = c;

    x = x/10;

  }

  printf("%d\n%d", a, b);

}