| | | |
| 1 | | - | Program cyba bratan; |
| 1 | + | gbr3r |
| 2 | | - | var x1, x2, x3, y1, y2, y3, nomer: integer; |
| 3 | | - | s1, s2, s3, min: real; |
| 4 | | - | begin |
| 5 | | - | writeln('суба братан введи координаты первой точки:') |
| 6 | | - | write('x=') ; read(x1) ; write ('y=') readln(y1) ; |
| 7 | | - | writeln ('введите координаты второй точки:') ; |
| 8 | | - | write('x=') ; read(x2) ; write ('y=') readln(y2) ; |
| 9 | | - | writeln ('введите координаты третьей точки:') ; |
| 10 | | - | write('x=') ; read(x3) ; write ('y=') readln(y3) ; |
| 11 | | - | s1:=sqrt(sqr(x1)+sqr(y1) ); |
| 12 | | - | s2:=sqrt(sqr(x2)+sqr(y2) ); |
| 13 | | - | s3:=sqrt(sqr(x3)+sqr(y3) ); |
| 14 | | - | min:=s1; |
| 15 | | - | nomer:=1; |
| 16 | | - | if mim>s2 |
| 17 | | - | then |
| 18 | | - | begin |
| 19 | | - | min:=s2; nomer:=2 |
| 20 | | - | end |
| 21 | | - | if mim>s3 |
| 22 | | - | then |
| 23 | | - | begin |
| 24 | | - | min:=s3; nomer:=3 |
| 25 | | - | end |
| 26 | | - | write('ответ:') |
| 27 | | - | writeln('это точка', nomer, '. расстояние =', min:4:1) |
| 28 | | - | end. |