Нужно перевести числа 110011,110000, 100011 из двоичной системы счисления в десятичную !
111
338
Ответы на вопрос:
1)1100112 = 1∙25+1∙24+0∙23+0∙22+1∙21+1∙20 = 32+16+0+0+2+1 = 5110 получилось: 5110 2)1100002 = 1∙25+1∙24+0∙23+0∙22+0∙21+0∙20 = 32+16+0+0+0+0 = 4810 получилось: 4810
program help; uses crt; const n = 10; (* размер массива *)var a : array[1..n] of integer; (* массив с числами *) i : integer; beginrandomize; clrscr; writeln('массив: '); for i : = 1 to n do begin a[i] : = random(601) - 300; (* заполняем рандомными числами *) writeln('a[', i, '] = ', a[i]); (* выводим на экран *) if (a[i] mod 3 = 0) and (a[i] mod 5 < > 0) then a[i] : = 0; (* обнуляем числа кратные 3 и не кратные 5 *) end; writeln('массив после изменения: '); for i : = 1 to n do writeln('a[', i, '] = ', a[i]); (* выводим на экран *)end.
Популярно: Информатика
-
plagods12.06.2022 17:32
-
M4xL1ght08.05.2022 20:01
-
Dgj817.12.2021 08:08
-
dhcf1214.02.2022 19:30
-
daniilfd15.04.2022 22:24
-
SharkKinger18.01.2021 16:53
-
daniil35810.04.2020 09:23
-
steamenigasteam29.11.2021 17:51
-
alisatcheredinp0805h27.02.2023 05:55
-
vano12512512508.04.2020 12:31