Помогите решить задачу Паскаль

[yuliya.al18]

Здравствуйте! Помогите решить задачу на условный оператор.
Решить уравнение ax=b.

[Dvoishnik]

какие переменные вводятся??

var a,x,b:real;
..........
Readln(a);
..........
ReadLn(b);
if (a=0) and (b=0) then 
  writeln('x какое хочешь')
  else
   if (b<>0) and (a<>0) then 
    begin
     x:=a/b ;
     Writeln(x);
    end
     else  writeLn('нету корней');

[Serge_Bliznykov]

Dvoishnik

else  writeLn('нету корней');

если я правильно прочитал ваш код, то при вводе одного параметра равного нулю, а второго - не равного нулю, программа выдаст, что решений нет.
но разве
2*x = 0
не имеет решений?!

[ViktorR]

Если посмотреть повнимательней, то тут всё ещё круче...

if (b<>0) and (a<>0) then 
    begin
     x:=a/b ;
     Writeln(x);
    end

Как-то так, ...

[Serge_Bliznykov]

x:=a/b;

а, точно!
а я на это даже внимания не обратил!

[ProBeginner]

if a=0
then if b=0
     then WriteLn('ℝ');
     else WriteLn('±∞');
else WriteLn(b/a);

[Serge_Bliznykov]

else WriteLn('±∞');

это из теории пределов?!

я бы для уравнения вида
0*x=2
написал, что

writeLn('нет корней');

[ProBeginner]

Сообщение от Serge_Bliznykov

это из теории пределов?!

-это просто выпендрёж. "Нет корней" - правильно, но много букаф

[Serge_Bliznykov]

Сообщение от ProBeginner

-это просто выпендрёж. "Нет корней" - правильно, но много букаф

Ага. Понял Вас.