Постройте на координатной плоскости рисунок, отметив и
соединив точки в такой последовательности: 1-2-3-4-5-6-7-
8-9-10-7-11-12-13-14-11-15-16-17-18-19-20-21-22-23-24-25-
21-1.
15
111
n )
x, y,0 m x₂ | 7₂ | xo yo
1 1 1
14 111 1101
| 2 1 | 10 |
110 | 1011
з 1 101
16 110 1000
4 1 111
101 111
5 10 1000 |
101
10 1011
111
10
11 1100
101
10 1110
100
9 11 10001
11
10
10 1100 1110
100
11 101 | 1100
100
1110 |
| 12 | 101
101 10
13
11
101
x = 28.35;
var
g : Real;
begin
Write('Введите кол-во граммов: ');
ReadLn(g);
Writeln(g:0:3, ' грамм = ', g/x:0:3, ' унций.');
Readln;
end.
2:
var
a, b, c : Integer;
m : Real;
begin
Write('Введите сторону a: ');
ReadLn(a);
Write('Введите сторону b: ');
ReadLn(b);
Write('Введите сторону c: ');
ReadLn(c);
m := sqrt(2*sqr(b) + 2*sqr(c) - sqr(a))/2;
Writeln('Медиана к стороне a = ', m:0:3);
m := sqrt(2*sqr(a) + 2*sqr(c) - sqr(b))/2;
Writeln('Медиана к стороне b = ', m:0:3);
m := sqrt(2*sqr(a) + 2*sqr(b) - sqr(c))/2;
Writeln('Медиана к стороне с = ', m:0:3);
Readln;
end.