Question

решите уравнение ax=b В Паскале. Помогите пожалуйста!

Answer 1

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 2
x = 0.4

Answer 2

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.