Рэйн0165
07.08.2020 13:01

В Чепуляндии на прямой Ox располагаются три дома. Первый находится в точке x1, второй находится в точке x2, а третий — в точке x3. Муниципалитет города планирует
поставить новую 5G вышку, для чего ему нужно выбрать определенную оптимальную
точку. Какое минимальное суммарное расстояние от домов жителей до новой 5G вышки?
Гарантируется, что правильный ответ всегда является целым числом.
При решении задачи опишите свой метод сортировки вставками. Не используйте
встроенные методы сортировки.
Входные данные
В первой строке следует три различных целых числа x1, x2 и x3 (1 ≤ x1, x2, x3 ≤ 100)
— координаты первого, второго и третьего домов.
Выходные данные
Выведите единственное целое число — минимальное суммарное расстояние от домов
жителей до новой 5G вышки.
Примеры
Примечание
В первом тестовом примере оптимально установить вышку в точке 5. Таким образом,
расстояние до первого дома будет равно 4 (от точки 5 до точки 1), расстояние до третьего
- 4 (от точки 9 до точки 5), а до второго расстояние будет равно нулю, так как он
располагается в точке, где установлена вышка.
входные данные
1 5 9
выходные данные
8

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Yutik
19.05.2023 02:18
//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of 
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.
0,0(0 оценок)
Ответ:
malevannyynikop082y7
07.06.2023 11:20

Лишние словосочетание выделено жирным шрифтом :

а. Формирование у пользователей компьютера навыков грамотной постановки задач, возникающих в практической деятельности, для их решения с компьютера.

б. Формирование у пользователей компьютера навыков использования основных типов прикладных программ общего назначения для решения с их практических задач и понимания основных принципов, лежащих в основе этих систем.

в. Формирование у пользователей компьютера навыков печати десятипалым методом.

г. Формирование у пользователей компьютера умения грамотно интерпретировать результаты решения практических задач с компьютеров и применять эти результаты в практической деятельности.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота