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

Поль¬зо¬ва¬тель на¬хо¬дил¬ся в ка¬та¬ло¬ге рас¬пи¬са¬ние. сна¬ча¬ла он под¬нял¬ся на один уро¬вень вверх, затем ещё раз под¬нял¬ся на один уро¬вень вверх, потом спу¬стил¬ся на один уро¬вень вниз. в ре¬зуль¬та¬те он ока¬зал¬ся в ка¬та¬ло¬ге с: \учёба\ма¬те¬ма¬ти¬ка\гиа. ука¬жи¬те пол¬ный путь ка¬та¬ло¬га, с ко¬то¬рым поль¬зо¬ва¬тель на¬чи¬нал ра¬бо¬ту. 1) с: \учёба\рас¬пи¬са¬ние 2) с: \учёба\ма¬те¬ма¬ти¬ка\рас¬пи¬са¬ние 3) с: \учёба\2013\рас¬пи¬са¬ние 4) с: \учёба\ма¬те¬ма¬ти¬ка\2013\рас¬пи¬са¬ние

👇
Ответ:
lana030935
lana030935
24.01.2020
4) С:\учеба\математика\2013\расписание
4,4(79 оценок)
Открыть все ответы
Ответ:
Snaga
Snaga
24.01.2020
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.
4,8(65 оценок)
Ответ:
MrReizer
MrReizer
24.01.2020
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,0,15); a.Println;
  var max:=a.Max;
  Write('Максимальный элемент ',max);
  Write(', элементов, равных ему - ',a.Where(x->x=max).Count-1)
end.

Пример
7 15 8 1 15 13 6 15 5 11
Максимальный элемент 15, элементов, равных ему - 2



begin
  var a:=ArrRandom(20,0,150); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]);
  Swap(a[imin],a[imax]); a.Println
end.

Пример
131 123 150 38 146 59 69 12 66 44 130 138 29 32 122 25 134 6 143 127
Минимальный элемент 6, максимальный 150
131 123 6 38 146 59 69 12 66 44 130 138 29 32 122 25 134 150 143 127
4,4(50 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ