begin write('Введите координаты (x,y,z) точки А: '); readln(A.x, A.y, A.z); write('Введите координаты (x,y,z) точки B: '); readln(B.x, B.y, B.z); L := sqrt(sqr(B.x - A.x) + sqr(B.y - A.y) + sqr(B.z - A.z)); writeln('Длина отрезка АВ равна ', L:0:4) end.
Тестовое решение:
Введите координаты (x,y,z) точки А: 3 -2 5 Введите координаты (x,y,z) точки B: -2.6 4 6.2 Длина отрезка АВ равна 8.2946
program part2;
const k = 20;
type Point = record x, y, z: real end;
var a: array[1..k] of Point; i, n: integer;
begin write('Введите количество точек (1-20): '); readln(n); for i:=1 to n do begin write('Введите координаты (x,y,z) точки ',i,': '); readln(a[i].x, a[i].y, a[i].z) end; for i:=1 to n do if (a[i].x=0) and (a[i].y=0) and (a[i].z=0) then writeln('Точка номер ',i,' лежит в начале координат') end.
Тестовое решение:
Введите количество точек (1-20): 6 Введите координаты (x,y,z) точки 1: 4 2 -4 Введите координаты (x,y,z) точки 2: 3 0 5 Введите координаты (x,y,z) точки 3: 0 -3 0 Введите координаты (x,y,z) точки 4: 3.5 7 -2 Введите координаты (x,y,z) точки 5: 0 0 0 Введите координаты (x,y,z) точки 6: 2 5 8 Точка номер 5 лежит в начале координат
Как мы понимаем что палитра состоит из двух цветов значит вес одного пикселя равен одному N=2^i=2 i=1 объём равен вес*ширина*высота I=i*height*width=240000 бит если что я переведу из бит в байт если надо 30000 байт 29,29 КБ
В данном тексте встречается не
так много различных прописных букв – это все буквы, входящие в заголовок (Ш, А,
Л, Т, Й, Б, О) и первые буквы строк (С, В, Н). Какая из них может встречаться
один раз. Не трудно заметить, что это не Ш и не Б (они встречаются слишком
часто), а также не С, не В и не Н (они встречаются в стихотворении попарно),
значит, это какая-то из оставшихся букв заголовка и не трудно догадаться, что О.
<span>
Три раз встречается строчная буква и.</span>
Три раза встречается прописная
буква А.
<span>Десять раз встречается
строчная буква е.</span>