4 бита, так как известно N=16, а формула равна N=2i, значит 16=2 в степени i
Переписал без ошибок
var a, b:integer;
begin
readln (a);
if 99 < a then writeln('Неверно')
else if a>999 then writeln('Неверно')
else writeln('Верно')
<span>end.</span>
1. for i := 1 to 10 do begin readln(n); if (even(n)) then s := s + n; end;
2. for i := 1 to 15 do begin readln(n); if (n mod 3 = 0) and (n mod 5 = 0) then inc(c); end;
3. for i := 1 to 10 do begin readln(n); if (10 <= n) and (n <= 20) then m := m * n; end;
1) 1.2*1024=1228.8
1228.8/100=12.288
2) 1.44*1024=1474.56
1474.56/100=14.7456