Var a,s,i,k: integer;
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, равно: ',k);
if (s<>0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (s<>0) and (s mod 4 <> 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.
№1.Под 1
#include <iostrem>
#include <cmatch.h>
using namespace std;
int main (); {
double x,y,a;
cout x;
cout y;
a=((sin(x)+cos(x))/(cos(x)-sin(y)))*tg(x*y);
cin a;
return 0;}<span>
</span>
Корень (корень(x) -3 * x + 8)
Формула Хартли.
2^6 = 64.
2^4 = 16.
В каждом взвешивании мы уменьшаем неопределенность информации в два раза. То есть тут количество попыток будет битами сообщения.
Ответ: 80.