Question

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

Answer 1

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.

Answer 2

Так то ответ Nobugana был первым)

Answer 3

Мне не жалко.

Answer 4

просто твой правильный, а спасибо я ж вам обоим сказала :э