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.
Клавишами Ctrl +C можно выполнить действие (Копировать выделенный текс или картинку)
Клавишей Del можно выполнить действие (Стереть текст с лева на право)