<span>233 236 </span>248 241
<em>VAR </em>
<em> k: LongInt;</em>
<em>BEGIN </em>
<em> k := 50; </em>
<em> While (k < 1000) do begin </em>
<em> k := k + 50; Write(k, ' ');</em>
<em> End;</em>
<em>END.</em>
<em>VAR </em>
<em> sum, k: LongInt;</em>
<em>BEGIN </em>
<em> k := 101; sum := 0; </em>
<em> While (k < 150) do begin </em>
<em> sum := sum + k; </em>
<em> k := k + 2; </em>
<em> End; </em>
<em> Writeln(sum);</em>
<span><em>END.</em></span>
1 Кб = 1024 байт = 8192 бит
8192/4 = 2048 бит
Цифры? 1234567890 ******************************************************
2) для удобства использования компьютера
3) стрелка
4) от настроек или действия выполняющееся мышкой
5) лазером