>> 8 .

3.4.

,

3.4.3.

then else . , :

    if <1> then
        if <2> then <1>
        else <2>

( ) , else if.

. . 2.4.2 ( 10) .

    program n_12;
        var a, b, : real;
    begin
        writeln (' ');
        write (' , b>>');
        readln (, b) ;
        if <>0 then
            begin
              :=-b/a;
              writeln (' =', : 9: 3)
            end
        else if b<>0 then writeln (' ')
          else writeln ('x - ');
    end.

, . , , .

    program n_13;
        var a, b, : real;
    begin
        writeln (' ');
        write (' , b>>');
        readln (, b) ;
        if <>0 then
            begin
              x:=-b/a;
              writeln (' =', :9:3)
            end;
        if (=0) and (b<>0) then writeln (' ');
        if (a=0) and (b=0) then writeln ('x - ')
    end.

, . : .

, [, b].

 

 

@Mail.ru