lesson3

% вывести все простые числа от 1 до N (простые те которые делятся на себя и 1)
clear
clc
N = 500; % количество чисел в массиве  primeris
k = 0; % число начиная с которого ищем натуральные числа
primeris = [];
while N > length(primeris)
    k = k+1;
    for d = 2:sqrt(k)+1
      if mod(k,d) == 0  % ищем число
          break;
      end
    end
    if d == floor(sqrt(k)+1) % floor уберёт остаток после запятой
        primeris = [primeris,k];
    end
end

% A B C  вычислить углы треугольника
clear
clc
A = 5;
B = 4;
C = 3;
Max = max([A,B,C]); % ищет максимум в массиве
Summ = sum([A,B,C]); % суммирует все числа массива
bool_ = Max > Summ - Max;
if bool_
   disp('Не существует');
else
   disp('Существует');
   cosAC = (A^2 + C^2 - B^2)/(2*A*C); % КОСИНУС  АС
   cosAB = (A^2 + B^2 - C^2)/(2*A*B);
   cosCB = (B^2 + C^2 - A^2)/(2*C*B);
   AC = acos(cosAC); % угол в радианах
   AB = acos(cosAB);
   CB = acos(cosCB);
   AC = rad2deg(AC);% rad2deg перевод радиан в градусы
   AB = rad2deg(AB);
   CB = rad2deg(CB);
   disp([' АС=', num2str(AC),' AB=', num2str(AB),' CB=', num2str(CB),]);

   if ((AC==90)||(AB==90)||(CB==90))
      disp('Есть угол 90гр');
   end
end

% Дано любое число 154763566. Найти максимальную цифру и минимальную
clear
clc
Nint = 154763566;
Nstr = num2str(Nint);
% Nstr(:) - переводит строку в массив символов
ArrOfNint = str2num(Nstr(:));  %  - переводит строку в массив чисел
MinNint = min(ArrOfNint); % минимальная цифра массива
MaxNint = max(ArrOfNint); % максимальная цифра массива