Вставь пропущенные слова. - данные не были изменены в ходе их
передачи, хранения или отображения.
Редактирование возможно только
лицами, которые имеют на это право.

241

488

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

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

роlinka2003

Информатика

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

1.var a,b,c: integer; d,x1,x2: real; begin; readln(a); readln(b); readln(c); d: =sqr(b)-4*a*c; if d< 0 then writeln('нет корней') else if d=0 then begin; x1: =-b/(2*a); writeln(x1); end else begin; x1: =(-b+sqrt(d))/(2*a); x2: =(-b-sqrt(d))/(2*a); writeln(x1); writeln(x2); end; end.2)var x1,y1,x2,y2: integer; r1,r2,rr: real; begin; readln(x1); readln(y1); readln(x2); readln(y2); r1: =sqrt(sqr(x1)+sqr(y1)); r2: =sqrt(sqr(x2)+sqr(y2)); if r1> r2 then begin; rr: =r1-r2; write('расстояние от точки а до начала координат больше, чем расстояние от точки в до начала координат на ',rr,' единиц'); end else if r1< r2 then begin; rr: =r2-r1; write('расстояние от точки b до начала координат больше, чем расстояние от точки a до начала координат на ',rr,' единиц'); end else write('точки a и b равноудалены от начала координат'); end.