16. Выполните действия в двоичной системе счисления (записать решение и товет)
1101*11+10111-101
263
336
Ответы на вопрос:
const n=20;
var a: array[1..n] of integer;
i,j,c: integer;
begin
randomize;
for i: =1 to n do begin
a[i]: =random(100);
writeln('a[',i,']=',a[i]);
end;
for i: =1 to n do begin
while (a[i] mod 2 < > 0) do begin
c += 1;
for j: =i to n-1 do begin
a[j]: =a[j+1];
a[j+1]: =0;
end;
end;
end;
writeln('размер массива: ',n-c);
for i: =1 to n-c do begin
writeln('a[',i,']=',a[i]);
end;
end.
Популярно: Информатика
-
vladimirnvrskp0845301.08.2020 15:52
-
melnikowapolia10.09.2020 11:51
-
Wertik301.10.2020 18:48
-
Yourname75625.05.2020 02:44
-
BilberryS29.03.2022 20:15
-
MelissaBlack13.06.2020 01:59
-
Виктория281902.11.2020 01:10
-
Malayalam06.03.2021 18:29
-
rika06050117.03.2020 10:33
-
natata2308126.09.2021 15:10