Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
i - 8 бит
K = 64*40*40
I - ?
I = K*i = 64*40*40*8 бит = 64*40*40*8/8 байт = 64*40*40 байт = 64*40*40/1024 Кбайт = 100 Кбайт
0.25 Мбайт = 0.25 * 1024 * 1024 байт = 262144.0 байт