Question

Как в паскале записать программу , решающее выражение 7х²-2(х-3)/х-3? проводится работа с операторами (если, то, иначе) и при написании вылезает ошибка 1001 "переменной не присвоено значение". что делать

Answer 1

//Мои скромные соображения относительно данной задачи. Если написала не то, не обессудьте.
var x:integer;
y:real;
Begin;
Writeln ('Введите значение х:');
Readln(x);
If x=3 then writeln ('Знаменатель равен 0!')
else
y:=(7*sqr(x)-(x-3)*2)/(x-3);
Writeln('у=',y);
End.

Answer 2

VAR
x,a,b: Integer;
y: Real;
Begin
WriteLn('Введите x');ReadLn(x);
if  x = 3 then begin
WriteLn('Знаменатель равен 0!');
end else begin
a:= x - 3;
b:= 7 * x * x - a * 2;
y:=b / a;
WriteLn(y);
end;
end.