Добил её)
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
var x, y, a, b: longint;
begin
var ax:=new List<integer>;
for var i:=10000 to 99999 do begin
x:=i;
while x > 0 do begin
y := x mod 10;
if y >2 then a := a + 1;
if y < 8 then b := b + 1;
x := x div 10;
end;
If (a=3) and (b=4) then begin ax.add(i); end;
a:=0; b:=0;
end;
Println('Минимальное x->',ax.min); Println('Максимальное x->',ax.max);
end.
Результат:
Минимальное x-> 10338
Максимальное x-> 97722
В 2с/с : 1000 -10 = 110 (в 2/с) - ответ, столько яблок упало (в 2с/с)
Проверка в 10с/с
10 (в2с/с) = 2(в10с/с)
1000 (в2с/с)= 8 (в 10с/с)
8-2=6 (в10с/с) 6(в10с/с)=110 (в 2с/с)
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub
4.
Обычный
Курсив
Полужирный
Полужирный курсив
Вообще это не информатика, а математика эдак класса 2.