var a,i,n,k : integer;
begin k := 0;
write ('n = ');
readln (n);
for i := 1 to n do
begin read (a);
if a =0 then
k := k +1; end;
writeln (k,' - кол-во нулей');
<span> end.</span>
В двоичную:
556:2=278 ост.0
278:2=139 ост.0
139:2=69 ост.1
69:2=34 ост.1
34:2=17 ост.0
17:2=8 ост.1
8:2=4 ост.0
4:2=2 ост.0
2:2=1 ост.0
1:2=0 ост.1
Остатки записываем в обратном порядке (снизу вверх): 1000101100
в восьмеричную:
556:8=69 ост.4
69:8=8 ост.5
8:8=1 ост.0
1:8=0 ост.1
Остатки записываем в обратном порядке (снизу вверх): 1054
в шестнадцатеричную:
556:16=34 ост.12 (С)
34:16=2 ост.2
2:16=0 ост.2
Остатки записываем в обратном порядке (снизу вверх): 22С
1. Достаточно; 2. Необходимо; 3. Достаточно.
Будем ремонтировать следующие опоры : A B D F H J L N O
получим 10 + 5 + 10 + 40+ 30 +50 + 2 + 3 +20 = 170
PascalABC
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.