1. Вопрос.
79 = 1001111
444 = 110111100
2. Вопрос.
101000 = 40
10101011 = 171
3. Вопрос.
3 приложение превышает объем 15 мб
0.5 гб переведем в мегабайты 0.5*1024=512 мб
Ответ: Нет.
4. 545,6Кб=545,6*1024=558694.4Байт;
0,756Гб=0,756*1024=774.144мб, 774,144*1024= 792723.456Кбайт;
456789Б=456789/1024=446.08КБайт, 446.08/1024= 0.43Мб)
5. Музыкальныйклип = 15 символов
принято считать 1 символ 1 байт
1*15= 15 байт фраза занимает.
15*8= 120 бит
Ответ: 15 Байт, 120 бит
1. Делим число в 10СС на два и записываем остатки справа налево (в скобках - остаток)
53 / 2 = 26 (1)
26 / 2 = 13 (0)
13 / 2 = 6 (1)
6 / 2 = 3 (0)
3 / 2 = 1 (1)
1 / 2 = 0 (1)
53(10) = 110101(2)
2. Умножаем каждый двоичный разряд справа налево на степень двойки, начиная с нулевой.
111001(2) = 1*2^5 + 1*2^4 + 1*2^3 +0*2^2 + 0*2^1 + 1*2^0 = 32 + 16 + 8 + 0 + 0 + 1 = 57(10)
3. Правило простое. 0 + 0 = 0; 0 + 1 = 1; 1 + 0 = 1; 1 + 1 = 10;
4. Сами догадайтесь.
Вы массив объявили с именем ar, а пытаетесь его использовать с именем а
Исправленный код выглядит так:
var
ar: array[1..10]of integer;
a, c, i, n: integer;
begin
read(n);
for i := 1 to n do
begin
read(ar[i]);
if i = 1 then
c := ar[i];
if ar[i] > c then
c := ar[i];
end;
writeln(c);
end.
Вариант №2
program max;
const n = 10;
var
ar: array[1..10]of integer;
a, c, i: integer;
begin
for i := 1 to n do
begin
read(ar[i]);
if i = 1 then
c := ar[i];
if ar[i] > c then
c := ar[i];
end;
writeln(c);
end.