16 цветов.
256x1024 байт = 256x1024x8бит = 2097152
1024x512 = 524288
2097152/524288 = 4 бита. Память,для 1 пикселя.
2 в 4 степени - 16.
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>
DIM s AS STRING, s1 AS STRING, n AS INTEGER
DIM i AS INTEGER, c AS STRING * 1
INPUT "s=", s
s1 = ""
FOR i = 1 TO LEN(s)
c = MID$(s, i, 1)
IF c <> "*" THEN s1 = s1 + c + c
NEXT i
PRINT s1
END
<em><u>Тестовое решение:</u></em>
s=12.4*1.45+sin(2*Pi*x)
1122..4411..4455++ssiinn((22PPiixx))
Чтобы продолжить, нажмите любую клавишу
Ответ:
256 кбит за 1 сек
За 62сек=256*62=15872кбит
15872кбит=1.94мбайт
Ответ:за 62 сек передается 1.94мбайт