<span>a = int(input(</span>'input A '<span>))
b = int(input(</span><span>'input B '</span><span>))
for i in range(a,b+1):
for j in range(10):
if str(i).count(str(j)) == 3:
print(i);
Тестовое решение:
input A 1190
Input B 1500
1191
1211
1222
1311
1333
1411
1444
</span>
Если нужен паскаль то вот:
var a,b: integer;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);
writeln;
writeln('Периметр=',(a+b)*2);
readln;
end.
var i, multi:integer;
s:string;
begin
readln(s);
multi:=1;
for i:=1 to length(s) do begin
if StrToInt(s[i]) mod 3 = 0 then
multi:=multi*StrToInt(s[i]);
end;
if multi = 1 then
writeln('Нет')
else
writeln(multi);
end.