Найти сумму максимальных цифр, использующихся в записи двух данных натуральных чисел. Нахождение максимальной цифры числа оформить в виде подпрограммы.
// 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
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
