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

натуральных чисел. Нахождение максимальной цифры числа оформить в виде

подпрограммы.

Question

Информатика

Матвей

15 февраля, 05:10

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

натуральных чисел. Нахождение максимальной цифры числа оформить в виде

подпрограммы.

+5

Ответы (1)

Знаете ответ на вопрос?

Игорюша · Answer 1

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.

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

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

натуральных чисел. Нахождение максимальной цифры числа оформить в виде

подпрограммы.