Var
x,i:integer;
f:boolean;
begin
f:=true;
for i:=1 to 3 do
begin
write('Введите N',i,': ');
readln(x);
if x>=5 then f:=false;
end;
if f then writeln('Все товары хорошие') else writeln('Есть плохие товары')
<span>end.</span>
На C++:
#include <iostream>
using namespace std;
int main()
{
int count=1, min=30001, val;
do
{
cin >>val;
if(val>30000) val-=30000;
if((val<min) && (val>0)) min=val;
if(count<1000) ++count;
} while(val>0);
cout <<"Минимальный элемент: " <<min;
return 0;
}
2+2*2=6 первое действие умножение, потом сложение (если это умножение конечно)
0 & 1 v 0 & 1 = 0 v 0 = 0
В двоичной системе получается 1100100
Ответ: 3