//PascalABC.NET 3.1 сборка 1219 (от самих создателей)
function IsPrime(x: integer): boolean;
begin
var sqx := Round(Sqrt(x));
var i := 2;
while (i <= sqx) and (x mod i <> 0) do
i += 1;
Result := i > sqx;
end;
begin
Range(ReadInteger('a ='), ReadInteger('b =')).Where(IsPrime).Print;
end.
Var i,d:integer;
n:array[1..3] of integer;
begin
writeln('Введите диапазон( от 0 до ...)');
readln(d);
randomize;
for i:= 1 to 3 do
beginn[i]:=random(d+1);
writeln(n[i]);
end;
if n[1]= n[2]+n[3] then
writeln('YES')
else
writeln('NO');
end.<span>
</span>
9^22+3^66-9=3^66 + 3^44 - 3^2
3^2= 100 (3cc)
3^44 =10....0 (3cc) (сорок четыре нуля после единицы)
3^66 =10....0 (3cc) (66 нулей)
------------------------------------------------------
3^44-3^2= 10....0000 - 100 (3cc) =2....200 (44-2=42 двойки)
ответ 42
число 12.( интервалы с 10-18, 10 -12, 12)