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

Question

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

Comments

Pascal

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function 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
    end
end;

begin
  var n1,n2:integer;
  Write('Введите через пробел два натуральных числа: ');
  Read(n1,n2);
  Writeln('s=',MaxDigit(n1)+MaxDigit(n2))
end.

Тестовое решение
Введите через пробел два натуральных числа: 53252 4654083
s=13

Answer 2

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.

Comments

Во избежание вопросов от автора я бы посоветовал указывать версию Паскаля, в которой дано решение. Ведь он может даже не подозревать о существовании PascalABC.NET, а в прочих конструкция "var a, b: integer;" внутри блока синтаксически недопустима.

---

Она находится вне блока

---

На сколько я знаю, можно описывать переменные, а потом подпрограмму и наоборот.

---

Да, точно)) Просто я между структурными единицами "на автомате" вставляю пустую строку. Еще, видимо, не проснулся до конца)))

---

Просто сайт до сих пор проглатывает мои переносы строк

---

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

---

Это не сайт проглатывает, а Г_угл Хром.

---

Если писать из FireFox - не глотает

---

Однако на других форумах ничего не проглатывает)

---

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