uses Crt;
var i, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=100 to 200 do
if (i mod 2)=0 then Sum:= Sum+i;
WriteLn (' Sum = ', Sum);
ReadLn;
<span>end.</span>
Сколько можно передать букв за 3 секунды по каналу связи с пропускной способностью канала 2000 бит/сек
2000*3/8=750 однобайтовых символов
Сколько в среднем можно передать букв русского текста в секунду по каналу с пропускной способностью С = 1000 двоичных единиц/cек?
33 буквы
32 = 2^6, 6 бит на букву
1000/6 = 125 букв
Определите битовые представления для следующих чисел: 5; 13; 21; 27.
101
1101
10101
11011
Графический редактор Paint (paint — краска), входящий в набор стандартных инструментальных средств операционной системы Windows, предназначен для создания и редактирования черно-белых и цветных рисунков и чертежей. Рисунки, подготовленные в редакторе Paint, относятся к так называемой растровой<span> графике (см. главу 4), когда изображение на экране дисплея рассматривается как совокупность, состоящая из некоторого количества строк, а каждая строка состоит из некоторого количества точек, которые принято называть пикселами, то есть элементарными единицами изображения. Цвет </span><em>каждого </em><span>пиксела задается независимым от остальных образом. Весь набор пикселов, из которых состоит рисунок, образует двухмерный массив </span>— растр<span> или</span>битовую карту<span> изображения. Основным достоинством этого способа формирования изображения является его простота. Вместе с тем рисунки, построенные таким образом, плохо масштабируются, то есть увеличиваются или уменьшаются в размерах, так как при этом возникают существенные искажения изображения. Подготовленные в редакторе рисунки могут быть напечатаны на принтере, перенесены в документ, созданный в текстовом редакторе, или записаны в файл на дисковое устройство. Файлы, создаваемые редактором Paint, по умолчанию получают стандартное расширение .bmp (от bit map — битовая карта).</span>
//PascalABC.Net 3.2
begin
var output: text;
assign (output, readstring('Введите полный путь файла: '));
rewrite (output);
for var i:=1 to readinteger('n =') do writeln(2*i-20);
close (output);
end.
