<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>
// PascalABC.NET 3.0, сборка 1076
var
c:char;
s:string;
begin
s:='';
for c:='А' to 'Я' do begin s:=s+c; Writeln(s) end
end.
<em><u>Тестовое решение:</u></em>
А
АБ
АБВ
АБВГ
АБВГД
АБВГДЕ
АБВГДЕЖ
АБВГДЕЖЗ
АБВГДЕЖЗИ
АБВГДЕЖЗИЙ
АБВГДЕЖЗИЙК
АБВГДЕЖЗИЙКЛ
АБВГДЕЖЗИЙКЛМ
АБВГДЕЖЗИЙКЛМН
АБВГДЕЖЗИЙКЛМНО
АБВГДЕЖЗИЙКЛМНОП
АБВГДЕЖЗИЙКЛМНОПР
АБВГДЕЖЗИЙКЛМНОПРС
АБВГДЕЖЗИЙКЛМНОПРСТ
АБВГДЕЖЗИЙКЛМНОПРСТУ
АБВГДЕЖЗИЙКЛМНОПРСТУФ
АБВГДЕЖЗИЙКЛМНОПРСТУФХ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.
В скобках даётся номер строки и столбца. По данной таблице Вы должны определить предложение. Начнём:
(1; 1) - Бит
(2; 3) - - (символ дефиса)
(2; 5) - это
(3; 2) - один
(2; 1) - или
(1; 3) - ноль
Бит - это один или ноль.
Здесь, скорее, подойдёт пословица (2), так как она значит, что ситуация неопределённая (или то, или это)
<h2>Ответ</h2>
2
приделали это потом это крях-брях и всё готово