Определите значение переменной у после выполнения алоритма при х=25 (в ответе запишите только число у:=х*2 если х>=26 то у:=х иначе если х>26 то у:=-(х*х/2) иначе у:=2*у все все

Відповідь:

х=48

Пояснення:

Пояснение:

Нам дан путь к каталогу "Системное".

C:\Информатика\Программное обеспечение\Системное.

Из этого следует, что каталог "Системное" находится в каталоге "Программное обеспечение", который в свою очередь находится в каталоге "Информатика", который находится на диске C.

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

Спуститься же на один уровень вниз - значит перейти в каталог который находится ниже выбранного нами каталога.

Вообще все эти каталоги можно рассмотреть как корни дерева: один толстый корень (диск С) начинает разделяться на многие другие корни (каталоги).

Исходя из этих пояснений решим задание.

C:\Информатика\Программное обеспечение\Системное.

Если мы поднимаемся на один уровень вверх, значит мы переходим из каталога "Системное" в каталог который находится выше, то есть в "Программное обеспечение".

Далее мы поднимаемся ещё на один уровень вверх: переходим из каталога "Программное обеспечение" в каталог "Информатика".

Далее мы опускаемся на один уровень вниз: из каталога "Информатика" переходим в каталог "7класс". И мы ещё раз опускаемся из каталога "7класс" в файл "Задания.doc".

Нам остаётся только выписать путь из диска С в файл "Задания.doc"

C:\Информатика\7класс\Задания.doc.

Вот и всё.

C:\Информатика\7класс\Задания.doc.

Вот и всё.

Если у Вас есть вопросы по заданию - можете задать их мне.

Удачи Вам! :)

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var xa,ya,xb,yb,xc,yc:real;
  Write('Введите координаты точки А: '); Read(xa,ya);
  Write('Введите координаты точки B: '); Read(xb,yb);
  Write('Введите координаты точки C: '); Read(xc,yc);
  var xd:=(xb+xc)/2;
  var yd:=(yb+yc)/2;
  var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya));
  Writeln('ma=',ma:0:5);
  var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
  var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));
  var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));
  var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC);
  Writeln('Wb=',Wb:0:5)
end.

Результат
Введите координаты точки А: 0 0
Введите координаты точки B: 2 1
Введите координаты точки C: -2 3
ma=2.00000
Wb=2.66667