Операционная система выдала пользователю сообщение *копируемый файл не умещается на заданном диске диске. попробуйте воспользоваться диском большой ёмкости* *повтор* *отмена* опишите, почему появилось данное сообщение. определите функцию, которую выполнила операционная система.

сообщение появилось из-за того что на диске недостаточно памяти.

Операционная система запросила у диска свободные сектора и из-за того что их не хватает она выдала сообщение насчет недостатка памяти

1. условные операторы «if» и «else»

2. Если [условие] То [оператор 1]

Иначе [оператор 2];

3. Если [условие] То [оператор];

4. == для равенства, >= "больше", <= "меньше", != для неравенства. Иногда вместо != ставят <>

5. if условие then действие else действие;

6. Условный оператор состоит из трёх слов IF ELSE THEN. Здесь <условие> просто помещает значение на вершину стека, IF анализирует флаг, и если: он не равен нулю, то выполняются выражения до ELSE или THEN ; если он равен нулю, то выполняется выражения между ELSE и THEN.

===== PascalABC.NET =====

type

 Point = (real, real);

 Vector = Point;

function GetVector(A, B: Point) :=

 (B[0] - A[0], B[1] - A[1]);

function PointInTriangle(A, B, C, P: Point): boolean;

begin

 var bV := GetVector(A, B);

 var cV := GetVector(A, C);

 var pV := GetVector(A, P);

 var k1 := (pV[0] * bV[1] - bV[0] * pV[1]) /

   (cV[0] * bV[1] - bV[0] * cV[1]);

 Result := False;

 if (k1 >= 0) and (k1 <= 1) then

 begin

   var k2 := (pV[0] - k1 * cV[0]) / bV[0];

   Result := (k2 >= 0) and (k1 + k2 <= 1)

 end

end;

begin

 var x, y: real;

 var A, B, C, P: Point;

 Write('Координаты точки A: '); Read(x, y);

 A := (x, y);

 Write('Координаты точки B: '); Read(x, y);

 B := (x, y);

 Write('Координаты точки C: '); Read(x, y);

 C := (x, y);

 Write('Координаты точки P: '); Read(x, y);

 P := (x, y);

 Writeln(PointInTriangle(A, B, C, P));  // True - принадлежит

end.