4.Если ты узнаешь, что информация на твоем сайте в сети интернет является плагиатом только после ее размещения, то каковы будут твои дальнейшие действия?​

program Test1;

uses Math;

var

 a, b, c, anglea, angleb, anglec: Real;

begin

 Write ('Сторона а: ');

 ReadLn(a);

 Write ('Сторона b: ');

 ReadLn(b);

 Write ('Сторона c: ');

 ReadLn(c);

 anglea := Arccos ((b * b + c * c - a * a) / (2 * b * c)) * 180 / Pi;

 angleb := Arccos ((a * a + c * c - b * b) / (2 * a * c)) * 180 / Pi;

 anglec := 180 - (anglea + angleb);

 WriteLn ('Угол а = ', anglea :5 :1);

 WriteLn ('Угол b = ', angleb :5 :1);

 WriteLn ('Угол c = ', anglec :5 :1);

 ReadLn;

end.

Объяснение:

Расчетные формулы из теоремы косинусов.

* 180 / Pi - в конце формул для перевода радиан в градусы, где Pi = 3,14 константа должна объявляться в Math, если нет напишите сами.

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

program numsum;

uses

 SysUtils;

var

 n, i, sn: Integer;

 s: string;

begin

 Write ('Введите четырехзначное число: ');

 ReadLn (n);

 n := Abs (n);

 if (n > 9999) or (n < 1000) then begin

   WriteLn ('Введенное число не четырехзначное');

   ReadLn;

   Exit;

 end;

 s := IntToStr (n);

 sn := 0;

 for i := 1 to Length (s) do

   sn := sn + StrToInt (s [i]);

 WriteLn ('Сумма цифр числа = ', sn);

 if sn mod 5 = 0 then

   WriteLn ('Сумма цифр делится на 5')

 else

   WriteLn ('Сумма цифр не делится на 5');

 ReadLn;

end.