Информатика: Решите уравнение ax=b в паскале. !

кира674

27.12.2022 08:07

Информатика

Есть ответ 👍

Решите уравнение ax=b в паскале. !

180

251

Посмотреть ответы 3

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

yanemykina2014

Информатика

4,8(94 оценок)

Var a,b,x: integer; begin write('a,b: '); readln(a,b); if a< > 0 then writeln('x = ',b/a: 4: 1) else writeln('деление на 0'); end. пример: a,b: 5 2x = 0.4

yuakomlev

Информатика

4,7(29 оценок)

Program n1; var a,b: real; begin write('введите a и b через пробел: '); readln(a,b); writeln('решаемое уравнение: ',a,'x=',b); write('ответ: '); if (a=0) and (b=0) then write('уравнение имеет бесконечное множество решений') else if (a=0) and (b< > 0) then write('уравнение не имеет решений') else write('x=',b/a); end.