По идее ок)
program prim;
var a:array [1..3] of integer;
i:integer;
c:integer;
begin
write('Введите 3 числа: ');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i] > c then c:=a[i];
if (c mod 3=0) then
writeln(c, ' кратно 3')
else
writeln(c, ' не кратно 3');
end.
252 .0 =1111 1100 0000 0000 - десять нулей ---> 2^10=1024
1024 -2=1022
ответ 1022
1)Опасность статического электричества заключается с одной стороны в том, что электрические разряды могут стать причиной пожаров и взрывов в тех отраслях промышленности, где применяют легковоспламеняющиеся вещества, с другой стороны, статическое электричество является препятствием для повышения производительности труда во многих отраслях промышленности из-за невозможности повышения скоростей движения, так как с увеличением скорости электризация резко возрастает.
N = 2^I; I = log(2)N
I = log(2)64 = 6 бит (2^6=64)
Ответ: 6 бит