Вставь пропущенные слова. - данные не были изменены в ходе их
передачи, хранения или отображения.
Редактирование возможно только
лицами, которые имеют на это право.
241
488
Ответы на вопрос:
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.
Популярно: Информатика
-
mediw130.07.2022 18:48
-
1анж4808.10.2021 16:05
-
kashamovasha05.02.2023 18:45
-
Ник55555555114.01.2023 20:29
-
mandarin5020.04.2021 17:16
-
ДЖАН484854819.07.2020 00:48
-
voloseikotatian31.12.2021 02:27
-
Violetta57018.08.2020 11:38
-
Hiitsmi08.03.2021 17:17
-
Nashinvo01.05.2023 20:30