Регистрация
sereser244
26.02.2020 15:33
Информатика
Есть ответ 👍

С ЧЕМ МОЖЕТЕ ИНФОРМАТИКА 8 КЛАСС​

175
496
Посмотреть ответы 1

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

arhangel33
arhangel33
4,6(38 оценок)

var

    a, b : real;

begin

    writeln('ax=b');

    write('введите a, b: ');

    readln(a, b);

    writeln(a, 'x=', b);

    if (a = 0) and (b = 0) then writeln('x= бесконечное
множество')

    else if (a = 0) and (b < > 0) then writeln('уравнение не имеет решений')

    else begin

        writeln('x=', b, '/', a);

        writeln('x=', b/a);

    end;

end.

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