Есть ответ 👍

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

106
181
Посмотреть ответы 2

Ответы на вопрос:


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.


Там есть программная кнопка,внимательней смотри.

Популярно: Информатика