(а или b) лучший и по удобнее
Во вложении........................................................................
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.
1)150000б. 0.15мб
2)3е+6 байт
3)5.5 гб. 5500000кб
1) 100*2^13 : 3*2^9 = (25:3)*2^6 секунд
2) 768 *(25:3) *2^6 = 256*25*2^6 =25*2^14 бит = 25*2 Кбайта= 50 Кбайт
ИЛИ:
1) 1536 : 768 = 2 ( скорость уменьшилась в 2 раза)
2) 100 :2 = 50 Кбайт
Ответ 50