М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ANNAAFANASYEVA1
ANNAAFANASYEVA1
27.03.2023 08:04 •  Информатика

Дан массив к, содержащий 43 элемента, в интервале от -7 до 25. поменять местами элементы равноудаленные от центра.

👇
Ответ:
kakhaeva02
kakhaeva02
27.03.2023
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var K:=ArrRandom(43,-7,25); K.Println;
  K.Reverse.Println;
end.

Тестовое решение
21 4 3 1 -4 2 6 15 6 -7 20 11 1 18 10 20 16 -2 0 25 5 -3 1 24 3 -3 16 22 11 9 12 -1 22 16 6 -5 25 24 23 13 18 6 6
6 6 18 13 23 24 25 -5 6 16 22 -1 12 9 11 22 16 -3 3 24 1 -3 5 25 0 -2 16 20 10 18 1 11 20 -7 6 15 6 2 -4 1 3 4 21
4,6(27 оценок)
Открыть все ответы
Ответ:
aleksandr7899
aleksandr7899
27.03.2023
Если у нас есть координаты этих вершин на плоскости вида (x; y), то
A(x1,y1)
B(x2,y2)
C(x3,y3)

program q;
var x1,x2,y1,y2,x3,y3:integer;
ab,ac,alp,bet,alfa,s:real;
begin
write('введите координаты точки A: ');
read(x1);
readln(y1);
write('введите координаты точки B: ');
read(x2);
readln(y2);
write('введите координаты точки C: ');
read(x3);
readln(y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
alp:=arctan((y2-y1)/(x2-x1));
bet:=arctan((y3-y1)/(x3-x1));
alfa:=bet*2-alp;
s:=sin(alfa)*(ab*ac)/2;
writeln('площадь треугольника=',s);
readln
end.
4,8(66 оценок)
Ответ:
vladimir00041
vladimir00041
27.03.2023

cd ~

mkdir folder1

cd folder1

touch file1

touch file2

touch file3

touch file4

tar cvf archive.tar *

mkdir ../folder2

cd ../folder2

touch new_file

cp ../folder1/archive.tar .

tar rvf archive.tar new_file

tar vf archive.tar --delete file3

tar vf archive.tar --list > list1

tar vf ../folder1/archive.tar --list > list2

diff list1 list2

#Разъединение выполнить не получится, потому что все файлы пустые, но если засовывать не пустые, то

split -b 10M archive.tar "part" # вместо 10M нужный размер

cat part* > joined_archive.tar

tar vf archive.tar --list

tar vf joined_archive.tar --list

tar czvf final_archive.tar archive.tar ../folder1/archive.tar joined_archive.tar

4,4(67 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ