Ответ:
Код дан в приложении.
Объяснение:
Мы просто пробегаемся до корня числа и пытаемся найти такой делитель. Если мы уже превысили корень, но так и не нашли ответ, значит, число простое, и мы выводим сам x.
Асимптотика решения:
var
p, w, x, y: real;
begin
Write('Введите через пробел p, x, w: ');
Readln(p, x, w);
y := sqrt(2 * p) * exp((x + 1) * ln(x)) * exp(-x - sqrt(w / (2 * p * x)));
Writeln('Y=', y:0:6)
end.
Тестовое решение:
Введите через пробел p, x, w: 3 1.456 4.7
Y=0.690109
В результате переменная b примет значение 6
Глобальные, базовые и конкретные ИТ.
//A lvl
var
i,sum: integer;
begin
i := 20; sum:=0;
while (i < 100) do
begin
inc(sum,i);
inc(i);
end;
Writeln(sum);
end.
// B lvl
var
i: integer;
sum:real;
begin
i := 1; sum:=0;
while (i <= 10) do
begin
sum := sum + 1 / i;
inc(i);
Writeln(sum);
end;
Writeln(sum);
end.