<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>
<span>1.Откройте меню Пуск. <span>Найдите значок Excel. Последовательно выберите пункты Все программы, Microsoft Office и Microsoft Office Excel 2010.
</span></span>
2.К операциям редактирования относятся:
<span>удаление и вставка строк, столбцов, ячеек и листов;копирование и перемещение ячеек и блоков ячеек;<span>редактирование текста и чисел в ячейках.
</span></span>3.Выделите первую ячейку или диапазон<span> ячеек и, удерживая клавишу CTRL, выделите курсором мыши остальные ячейки или </span>диапазоны<span>. Также можно, выбрав первую ячейку или </span>диапазон<span> ячеек, нажать сочетание клавиш SHIFT+F8, чтобы добавить другую несмежную ячейку или </span>диапазон<span> ячеек к области выделения.
</span>
(слишком много вопросов, извольте)
<span>A:\Документы\Сочинения\Литература.doc.
А:\Фото\Принтер.bmp
А:\Фото\Компьютер.bmp</span>
Uses crt;
const n=5;
var
s:array[1..n] of string;
i,j,c:integer;
ss:string;
begin
writeln('Введите :');
for i:=1 to n do begin
write('s[',i,']=');
readln(s[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i]>s[j] then
begin
ss:=s[i];
s[i]:=s[j];
s[j]:=ss;
end;
for i:=1 to n do
writeln(i,'.',s[i],' ');
<span>end.</span>
1
var n,s,i:integer;
begin
readln(n);
for i:=3 to n do
if (n mod i=0) and (i mod 3=0) and (i mod 2>0) then
s:=s+i;
writeln ('Ответ: ',s);
<span>end.
2
var
n,i:integer;
x,y:real;
begin
readln(x,n);
y:=1;
for i:=1 to n do y:=y*x;
writeln (x,'^',n,'=',y);
<span>end.
</span>
3
</span><span>var n,i:integer;
begin
n:=1;
writeln('Часы ',' Кол-во');
while i<25 do
begin
writeln(i:3,n:6);
n:=n*2;
i:=i+3;
end;
<span>end.</span></span>