ответ: Проверенно
Этот код преднозначен для решения этого примера 'если a>b, то , иначе p^2=z'
x-3/x^2-2x+5
Program jnj;
var
a, b: real;
bool: boolean;
begin
writeln('Введите значение a:');
readln(a);
writeln('Введите значение b:');
readln(b);
begin
if a > b then
writeln(a - 3 / sqr(a) - 2*a + 5) end;
begin
if a <= b then
writeln('z = ', sqr(b));
end;
end.
program jnj;
Этот код преднозначен для решения корень y+x=z
var
y, x: real;
begin
writeln('Введите y:');
readln(y);
writeln('Введите x:');
readln(x);
writeln('z = ', sqrt(y + x), ';');
end.
Оба кода разные, поэтому вводить их нужно поочередно
