Написать алгоритмы вычисления площадей, сторон и углов треугольника по известным данным. Необходимо учитывать, что маленькая а и большая А разные величины, но Кумир понимает их, как одну. Маленькая сторона, большая угол. Поэтому угол можно обозначить, как UA, а сторону, как SA. Алгоритмический язык имеет особенность при вычисление углов. Мы пользуемся градусной мерой-градусами, Кумир радианной-радиан. Формулы перевода: из градусов в радиан-градус"пи/180 обратно- радиан*180/пи пи-число ПИ 3, 1415 В задание исходные данные даны в градусах

45% травм- бытовые, то есть полученные дома, например, ребенок опрокинул на себя кастрюлю с горячей водой ( ожог) или сунул пальцы в розетку ( удар электротоком)
36% травм- уличные, то есть полученные вне дома, на улице, например, ребенок упал с горки ( ушиб или перелом) или залез на дерево, упал и ударился головой ( сотрясение мозга или черепно- мозговая травма)
1%- школьная, например бежал и врезался в дверь со стеклом ( порезы) или на уроке физкультуры повредил ногу ( например ушиб )
4%- дорожная, это уже в основном ДТП, переходил дорогу в неположенном месте, сбила машина ( переломы, черепно-мозговые травмы и т.д.)

Program CountA;

Uses Crt;

var a,n,x,i:integer;
begin

clrscr;  // очищаем экран
write('Введите число n:');
readln(n); // ввод данных

write('Введите цифру а: ');
readln(a);  // ввод данных
x:=1; i:=0;  i-счётчик цифр а  
while (n<>0) do // Пока n не стало равным нулю
begin
    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  
   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 
   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
 end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу

end.