Написать блок-схему и программу линейного уравнения
ax+b= 0

Прошу прощения за помарки. Программа рабочая.

//PascalABC.Net
//NaaMan
var
    a,b : real;
begin
    write(Введите А и В: );
    readln(a,b);
    if (a=0) then
        writeln(Корень отсутствует)
    else
        writeln(Корень , -b / a)
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!