• Найти сумму максимальных цифр, использующихся в записи двух данных
    натуральных чисел. Нахождение максимальной цифры числа оформить в виде
    подпрограммы.

Ответы 7

  • Конечно. Расположение описаний влияет на область видимости описанного - и только.
    • Автор:

      alfred
    • 6 лет назад
    • 0
  • Это не сайт проглатывает, а Г_угл Хром.
    • Автор:

      xena
    • 6 лет назад
    • 0
  • Если писать из FireFox - не глотает
    • Автор:

      scout68
    • 6 лет назад
    • 0
  • Однако на других форумах ничего не проглатывает)
    • Автор:

      armani77
    • 6 лет назад
    • 0
  • Да, я же и написал - так этот ресурс "понимает" переданное из упомянутых браузеров.
    • Автор:

      emmygske
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.1, сборка 1250 от 28.05.2016function MaxDigit(n:integer):integer;begin  Result:=0;  while n>0 do begin    var m:=n mod 10;    if m>Result then result:=m;    n:=n div 10    endend;begin  var n1,n2:integer;  Write('Введите через пробел два натуральных числа: ');  Read(n1,n2);  Writeln('s=',MaxDigit(n1)+MaxDigit(n2))end.Тестовое решениеВведите через пробел два натуральных числа: 53252 4654083s=13
    • Автор:

      mindy3nxa
    • 6 лет назад
    • 0
  • function MaxDigit(n: integer): integer;var max: integer;begin  max := 0;  while n > 0 do  begin    if n mod 10 > max then max := n mod 10;    n := n div 10;  end;  MaxDigit := max;end;var a, b: integer;begin  read(a, b);  write(MaxDigit(a) + MaxDigit(b));end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years