Вы ввели число: 10100112 в двоичной системе счисления и
хотите перевести его в десятичную.
Для этого переведем его сначала в десятичную вот так :
10100112 = 1∙26+0∙25+1∙24+0∙23+0∙22+1∙21+1∙20 = 64+0+16+0+0+2+1 = 8310
Получилось: <span>8310</span>
Результат перевода:
<span>10100112 = 8310 </span>
var
n, max, count, contrl: integer;
begin
contrl := 0;
max := 0;
Writeln('Введите числа: ');
Readln(n);
while n <> 0 do
begin
Inc(count);
if (n mod 10 = 0) and (n > max) then max := n;
Read(n);
end;
Writeln('Введите контрольное значение: ');
Read(contrl);
Writeln('Получено: ', count, ' чисел');
Writeln('Получено контрольное значение: ', contrl);
Writeln('Вичисленное контрольное значение:: ', max);
if contrl = max then Writeln('Контроль пройден')
else Writeln('Контроль не пройден');
end.
1) 4
2) сомневаюсь в этом ответе (в варианте E)
I - A ,B,D,F,G.H,J
II -E,I
III - C
3)
I - B
II -A
III - F
IV - C
V - G
VI - D
VII -E