у меня в коде лазаруса пишет ошибку мол недопустимые значения надо вписать в 1 линию мемо если что это задание на странице 163 інформатика 9клас риквінд. Вот код
procedure TForm1.Button1Click(Sender: TObject);
var a: array [0..7] of integer; i: integer;
begin
For i := 0 to 7 do a[i] := strtoint(memo1.Lines[i]);
for i := 0 to 7 do a[i] := a[i]+i;
Memo2.clear;
For i := 0 to 7 do Memo2.Lines.append(inttostr(a[i]));
end;
буду весьма благодарен за

1. Чтобы решить задачу, надо определить, какое количество варенья съест Машенька за 20 дней. Вначале вычислим это количество в ложках, если известно, что за день она съедает по 5 ложек варенья:

5 * 20 = 100 ложек.

2. Теперь переведем 100 ложек варенья в граммы, если известно, что каждая ложка помещает 5 г варенья:

100 * 5 = 500 грамм.

3. Если исходное количество варенья составляет 650 грамм, тогда вычтем из этой массы ту часть, что съест Машенька за 20 дней и получим массу оставшегося варенья через 20 дней:

650 - 500 = 150 грамм.

ответ: получили, что через 20 дней в банке останется всего 150 грамм варенья.

1)1/512 Мб = 2048 Б; 2048/1024 = 2 байт/символ
2)1/16 Мб = 65536 байт; в 16-ти симв. алфавите на кодировку 1-го символа нужно 4 бита, значит в 1 байте 2 симв. если объем 65536 байт, умножь на 2
получишь 131072 символа
3)12288 бит делишь на 8 = 1536 байт делишь на 1024 (1 кб=1024 б) = 1,5 кб
4)для кодировки 1 символа 10 симв. алфавита нужно 4 бита, 4*384 = 1536 бит, делишь на 8, =192 байта =0,1875 кб
5)30*70*5=10500 символов. Т. к. в случае 256 симв. алфавита нужно на 1 символ 8 бит ( 1 байт) , то получишь 10500 байт
Вот решение задачи.