1010 в десятичной = 1111110010 в двоичной
В полученном числе 7 единиц
Ответ: 7.
Var
i,imax,max:integer;
b:array[1..50]of integer;
begin
for i:=1 to 50 do
begin
b[i]:=random(100);
write(b[i],' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max,'; его номер: ',imax);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
Ворд это универсальная штука при помощи нее мы можем даже создавать рисунки и редактировать текст, распечатывать раздичные рисунки и набраный текст созранение там очень простое,жмещь сохрнатить , и указываещь путь.ПРости за опечатки