clc

disp('Лабораторная работа №6');

disp('Задание 1');

//k = f(0.397)
function [y] = f(x)
    if(x^2<=25*cos(x^3)) then
         y = sin(3*x)
    elseif(x^2>25*cos(x^3))
        y = 2*x-tan(x)/(sqrt(x^2+2))
    else
        y = %nan
    end
endfunction
disp('Значение функции:');
disp(f(0.397))
disp('****************************************');

disp('Задание 2');
a = [ 1 2 -1 -2 1 1 1 -10 -1 -5 0 6 7 2 0 1];
s = sum(a < 0)
disp('Количество отрицательных элементов:');
disp(s)
disp('****************************************');

disp('Задание 3');

disp( "Введите 10 элементов вектора x.")
x1=input('x1=')
x2=input('x2=')
x3=input('x3=')
x4=input('x4=')
x5=input('x5=')
x6=input('x6=')
x7=input('x7=')
x8=input('x8=')
x9=input('x9=')
x10=input('x10=')


x = ([x1, x2, x3, x4, x5, x6, x7, x8, x9, x10])
s = sum(x < 0)
disp((s), "Количество отрицательных элементов вектора:")
disp('****************************************');

disp('Задание 4')


s=0
k=0
while s<=10
   x=input('x=')
   rest=x-int(x/2)*2
   if rest==0 then
       s=s+x
       k=k+1
   end
end
disp((s), "Сумма четных элементов:")
disp((k), "Количество слагаемых:")
disp('****************************************');

disp('Задание 5')

D=input('Введите число D  от  1 до 31:  ');
rest = D-int(D/7)*7
select rest
      case 1 then disp('Понедельник');
      case 2 then disp('Вторник');
      case 3 then disp('Среда');
      case 4 then disp('Четверг');
      case 5 then disp('Пятница');
      case 6 then disp('Суббота');
      else
      disp('Sunday');
      end