<u>PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var j:biginteger:=2;
var i:BigInteger;
Writeln(j);
loop 9 do begin
i:=j; j*=i; Println(j)
end
end.
Var n,m,s,i,kol:int64;
begin
read(n);
for i:=1 to n do begin
read(m,s);
if (m<18) then inc(kol);
if (m=18) and (s<=30) then inc(kol);
end;
writeln(kol);
end.
Нц
нц 3 раз
вниз
закрасить
вниз
кц
нц 3 раз
вверх
кц
влево
кц
Ну 10*100=1000 бит, а т.к. 8 бит = 1 байт, то 1000/8=125 байт.
<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>