Program mas;
var
mas, p_mas: array[1..15] of integer;
i: integer;
begin
randomize;
for i:= 1 to 15 do
begin
mas[i] := Random(6) + 7;
p_mas[i] := mas[i];
end;
mas[8] := mas[10] + 5;
mas[10] := mas[13];
writeln('Первоначальный массив:');
for i := 1 to 15 do
write(p_mas[i], ' ');
writeln(CRLF + 'Изменённый массив:');
for i := 1 to 15 do
write(mas[i], ' ');
end.
2048 символов.
1 МБ = 1024 Кбайт
1/256 МБ = 4 Кбайта.
Итак, 4 Кбайта = 4096байт = <span>4096</span> символов.
Итого, 1 символ весит 2 байт.
Что это значит? В 2 байт можно впихнуть числа от 0 до 255, то есть в алфавите 128 символов.
...........................
Var
st,sr,kd:integer;
begin
readln(st,sr,kd);
if (kd>=st*20+sr*5) then writeln(kd-st*20-sr*5)
else writeln('Анне не хватит денег');
end.
32 можно закодировать с помощью 4 бит
600*400*32*2 =15360000 бит = 1920000 байт = 1875 Кбайт = 1.8310546875 Мбайт