Итак, нужно 1000000 вариантов, 4 цифры есть, это 10000 вариантов(0000 тоже возможно)
необходимо увеличить до 1000000 вариантов, для этого необходимо в 100 раз или больше увеличить. одна буква увеличит в 5 раз, две буквы в 25, 3 буквы в 125, ответ 3 буквы(5*5*5) и будет доступно 1250000 вариантов, что на 250000 больше необходимого
Var x,y:real;
begin
readln(x);
if x<0 then y:=1
else if (x>=0) and (x<10) then y:=x+3
else if x>=10 then y:=x/2;
writeln(y);
<span>end.</span>
===== PascalABC.NET =====
begin
var a := ReadReal('Введи значение синуса угла:');
var b := Sqrt(1 - a * a);
Print('Коснус этого угла равен', b)
end.
Пояснение: sin²x + cos²x = 1
Нц
пока справа свободно - закрасить вправо
кц
нц
пока снизу свободно - закрасить <span>вниз
</span>кц
нц
пока слева свободно - закрасить <span>влево
</span><span>кц
</span>нц
пока сверху свободно - закрасить <span>вверх
</span><span>кц
</span>стоп.