Последний невозможно перевести, так как число записано неверно, число в 7 СС может состоять из цифр от 0 до 7(а там есть 8)
Полное решение не писал, так как много.
В интернете посмотрите тему "Перевод из одной Системы Счисления в другую"
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin;
var s:=ReadInteger('n=').ToString;
If s.Length<>(s.Distinct.Count) then Writeln('не является')
else
if s=s.ToCharArray.SortedDescending.JoinIntoString('')
then Writeln('является') else Writeln('не является')
end.
<u>Примеры</u>
n= 9875431
является
n= 9753321
не является
n= 9763421
не является
<u><em>Замечание:</em></u> учтено, что упорядоченность должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.
Цикл, в котором условие записано после тела цикла, выполнится как минимум 1 раз, а потом начнет проверять условие цикла. Цикл с предусловием может не выполниться ни разу, тк условие проверяется сразу. Цикл с предусловием используется когда у нас есть четкие границы выполнения
Ответ:
10 - 659; 2 - 1010010011; 8 - 1223;
Объяснение:
<em><u>Код на Паскале:</u></em>
Program proba;
Uses crt;
Var n,s:integer;
Begin
writeln('введите натуральное число');
Readln(n);
s:=0;
repeat s:=s+n mod 10;
n:=n div 10;until n=0;
writeln('сумма цифр ',s);
<span>end.
<em><u>P.S. Программа вычисляет не только трехзначные числа ;)</u></em></span>
