1. Начало
2. k=0, i=0; Ввести: b, n, m[n]
// m[n] - массив из n элементов
3. Если m[i] = b, то k=k+1
// m[i] обращение к i-ному элементу массива
4. Если i<n, то i=i+1 и вернутся в п.3
5. Вывести: k
6. Конец
Предположим, что значение х находится в ячейке А2. Запись в условии задания неграмотная, поэтому придется сделать предположение что SIN2 означает квадрат синуса.
Тогда для ячейки со значением Y формула запишется так:
=SIN(3*ПИ()*A2)-COS(3*ПИ()*A2)*SIN(ПИ()*A2)^2
Для ячейки со значением Z формула будет иметь следующий вид:
=COS(ПИ()*A2)-COS(3*ПИ()*A2)*SIN(ПИ()*A2)^2
Var
x:real;
Begin
Write('x = ');
ReadLn(x);
Write('f(',x,') = ',4*Cos(2*x)*Sin(2*x)-7.1*x*x*x+sqrt(x))
End.
Код прикреплен файлом (в расширении .txt, знания не поддерживают расширение .c) и картинкой.
Пример работы программы прикреплен картинкой.
Пример как скомпилировать программу из консоли тоже прикреплен картинкой.
Спасибо за отметку "лучший ответ"