Добил её)
//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
Дом Эльфа <span>был в самом синем цветке на поляне, </span>дом Хмурика<span> – в самой глубокой </span>норе, в чаще леса<span>, а </span>Шишкоед жил<span> в чаще, на самой высокой сосне...</span>
Var i : Integer;
Begin
For i:=1 to 20 do Writeln(i,'^2 = ',sqr(i));
end.
DIM p AS LONG
p = 1
FOR i = 5 TO 18 STEP 5
p = p * i
NEXT i
PRINT p
Алгоритм посадки дерева
Начало
Выкопать в земле ямку
Опустить в ямку саженец
Засыпать ямку с саженцем землёй
Полить саженец водой
Конец