НН
Наташа Никифорова
Помогите разобраться с уравнением в Паскале!
дано уравнение log_a (bx+c) = 2
Укажите на мои ошибки пожалуйста:
program lab3_1;
uses crt;
var b,a,c:integer;
x,xx,xxx:real;
begin
clrscr;
write('Vvedite a=');
readln(a);
write('Vvedite b=');
readln(b);
write('Vvedite c=');
readln(c);
xx:=-c/b;
xxx:=b*xx+c;
if xxx <2 then writeln('Resheniy net');
x:=ln(xxx)/ln(a)-2; writeln('x=',x:8:2);
if xxx < 1 then writeln('Resheniy net');
readln
end.