Определить, есть ли среди цифр заданного трехзначного числа одинаковые? Задача заключается в том чтобы проверить неизвестное количество трёхзначных цифр на равенство. Я создал цикл который спрашивает сколько цифр будет задано, используя цикл. Трёхзначность проверил строкой if len(a) != 3: и поместил это в цикл чтобы проверило все числа на трёхзначность код как вы поняли не сработал.
Моя попытка кода:
a = [0] * int(input('Введите количество цифр:' ))
for i in range(len(a)):
a[i] = int(input('Введите цифру:' ))
for i in range(1, len(a)):
if len(a) != 3:
print('Введённое число не трёхзначное!')
else:
print('Введённое число:', a)
Написал часть кода но застрял на ошибке где он проверят трёхзначность числа, строка if len(a) != 3: должна это делать и она это делает но если цифр больше одного то он не проверят если одна цифра не трёхзначная а другие трёхзначные.
var a,b, I, maxsumm, max : integer;
function summdel(x:integer):integer; //результат - сумма делителей х
var k,sum:integer;
begin
sum:=0;
for k := 1 to x div 2 + 1 do
if x mod k = 0 then sum:= sum+k;
summdel:=sum;
end;
begin
writeln('Введите границы a,b ');
readln(a,b);
maxsumm := 1;
max := 1;
for i := a to b do
begin
if summdel(i) > maxsumm then
begin maxsumm:= summdel(i);
max := i;
end;
end;
writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
end.