profile
Опубликовано 5 лет назад по предмету Информатика от bulishevam

Составьте программу по блок-схеме

  1. Ответ
    Ответ дан raf1O5

    program raf105;

    var a,b,x: real;

    begin

    readln(a,b);

    if b<>0  

     then writeln('Корней нет')

     else if a<>0  

       then

       begin

        writeln('1 корень');

        x:= -8/a;

        writeln(x);

       end

       else writeln('мн-во корней');

    end.