Дано натуральное число N. Вычислить разницу между самой большой и самой маленькой цифрой в записи этого числа.
Дано натуральное число N. Вычислить разницу между самой большой и самой маленькой цифрой в записи этого числа.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var s:=ReadlnString('Натуральное число:').Distinct;
Writeln('Макcимальная разница в цифрах: ',Integer(s.Max)-Integer(s.Min))
end.
Тестовое решение
Натуральное число: 3456634642452343053000523424136240235341
Макcимальная разница в цифрах: 6
Гостьvar n,ni,ma,mi,i:int64;
nstr:string;
begin
ma:=0;
mi:=10;
read(n);
nstr:=inttostr(n);
for i:=1 to length(nstr) do begin
ni:=strtoint(nstr[i]);
if ni>ma then ma:=ni;
if ni
Не нашли ответ?
Похожие вопросы