Const
N = 25;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(401)-200;
Write(A[i],' ');
if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;
End;
WriteLn;
WriteLn('k = ',k);
End.
Похоже на алгоритм.
еще есть СКИ -
система команд исполнителя, т.е. исполнитель не сможет выполнить то, для чего он НЕ предназначен. Типа, стиральная машинка не разогреет пиццу.
Эта задача на формулу включений и исключений для трёх множеств. В данных обозначениях она запишется так: M + N + K - A - B - C + D.
Ответ: M + N + K - A - B - C + D.
#include <iostream>
int main () {
double x, y;
std::cin >> x >> y;
std::cout << ((x >= 2 && y >= 0) || (x >= 1 && y <= -1) ? "Yes" : "No") << std::endl;// д
std::cout << ((x >= 2) && (y >= 1 || y <= -1.5) ? "Yes" : "No") << std::endl;// е
std::cout << (x >= 1 && x <= 3 && y <= -1 && y >= -2 ? "Yes" : "No") << std::endl;// ж
std::cout << ((y >= 0.5 && y <= 1.5) || x >= 2 ? "Yes" : "No") << std::endl;// з
}