Составить программу решения линейного уравнения ax + b = 0, где а не равно 0.

251

280

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

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

nikadidok

Информатика

4,4(67 оценок)

Program n1; var a,b: real; begin writeln('программа для решения уравнения вида y=ax+b'); write('a='); readln(a); write('b='); readln(b); writeln('введенное уравнение: ',a,'x+(',b,')=0'); write('x=',-b/a); end.

nnxxxmm5p03cok

Информатика

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

1) program chik2; var a,b,c: real; begin readln(a,b); if(a< b)then begin c: =a; a: =(a+b)/2; b: =b*c; end; if(a> =b)then begin c: =b; b: =(a+b)/2; a: =a*c; end; writeln(a,' ',b); end. 2) program chik; var a,x,b: real; begin readln(a,b); if(a=0)and(b< > 0)then writeln('нет решений'); if(a< > 0)then begin x: =-b/a; writeln(x); end; end. 3) program chik3; var a,b: real; begin readln(a,b); if(a< b)then a: =a*2 else if(b< a)then b: =b*2; writeln(a,' ',b); end.