Они отлечаются тем что переменой длины она работает по переменам а постояный он будет работать постояно
элементарно Вадсон
N = int(input("n = "))if n <= 999999:----mas = []----while n >0:--------a = n %10--------n = n//10--------mas.append(a)--------print(a,end=' ')----print()----print(mas)
I=i*K
i=I/K=366*8(переводим из байт в биты)/732=4
N=2^i=2^4=16
Ответ 16
Var
n:integer;
begin
Write('n = '); Read(n);
Writeln(n div 100+(n div 10) mod 10+n mod 10)
end.
Пояснения.
n div 100 дает первую цифру: результат деления нацело числа на 100.
(n div 10) mod 10 дает вторую цифру: вычисляется результат деления нацело числа на 10 и от него берется остаток деления на 10.
n mod 10 дает третью цифру: остаток целочисленного деления числа на 10.
var s:string;
i,j,k:integer;
Unique:boolean;
BEGIN
for i := 1000 to 9999 do
begin
s := str(i);
Unique:=true;
for j: = 1 to length(s)-1 do
for k := j+1 to length(s) do
begin
if s[j] = s[k] then Unique:=false;
end;
if Unique then
writeln(i);
end;
END.
может длинее, но универсальное.