12 * 2= 24
24 * 2=48
48-3=45
45-3=42
42-3=39
39-3=36
36-3=33
Если под "кб" подразумевались килоБИТы, то 3500*1024/16/3200 = 70 секунд. Если – килоБАЙТы, то 3500*1024*8/16/3200 = 560 секунд.
Должно быть, на задний план, я думаю.
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
1. Зрительная, числа
2. Зрительная, графика
3. Слуховая, звук
4. Зрительная, текст
5. Слуховая, видео