Const col=14;
var i:byte;
T:array[1..col] of shortint;
begin
writeln('Массив из ',col,' элементов');
T[1]:=-2;
write(T[1]:6);
for i:=2 to col do begin
T[i]:=T[i-1]*(-1);
write(T[i]:6);
end;
end.
Информатизация – это производное от слова информация. Информатизация – это процесс получения, использования, хранения, передачи информации.
На протяжении ХХ века сменялось множество способов обмена информацией. Если в XIX веке носителем информации была бумага, а средством передачи была почтовая служба, то в ХХ веке информация стала передаваться гораздо быстрее с помощью телеграфа, в голосовой форме обмениваться информацией можно по телефону, радио и телевидение призваны только для получения человеком информации. В наши дни есть огромное количество способов передачи информации, причем в любой форме. Телефонные линии до сих пор остаются самым удобным средством передачи информации, но теперь ими обслуживаются не только телефоны, но и самое большое достижение процесса информатизации – Internet, содержащий большую часть информации со всей планеты.
Сейчас информатизация не мыслима без компьютера, так как он изначально создавался как средство обработки информации и только теперь он стал выполнять множество других функций: хранение, преобразование, создание и обмен информацией. Но прежде чем принять привычную сейчас форму компьютер претерпел три революции. Первая компьютерная революция свершилась в конце 50-х годов; ее суть можно описать двумя словами: компьютеры появились. Изобретены они были не менее чем за десять лет до этого, но именно в то время начали выпускаться серийные машины, эти машины перестали быть объектом исследований для ученых и диковинкой для всех остальных. Через полтора десятилетия после этого ни одна крупная организация не могла себе позволить обходиться без вычислительного центра. Если тогда заходила речь о компьютере, сразу же представлялись заполненные стойками машинные залы, в которых напряженно думают люди в белых халатах. И тут свершилась вторая революция. Практически одновременно несколько фирм обнаружили, что развитие техники достигло такого уровня, когда вокруг компьютера не обязательно воздвигать вычислительный центр, а сам он стал небольшим. Это были первые мини-ЭВМ. Но прошло еще десять с небольшим лет, и наступила третья революция – в конце 70-х возникли персональные компьютеры. За короткое время, пройдя путь от настольного калькулятора до полноценной небольшой машины, ПК заняли свои места на рабочих столах индивидуальных пользователей.
Компьютер – это самое популярное средство для обработки, хранения и передачи информации и по сей день, но так как в наши дни информации становится все больше, то и компьютеры претерпевают значительные изменения. Для удобства пользователей стали выпускаться, переносные и карманные компьютеры, подключенные к глобальной информационной сети Internet, чтобы пользователь мог получить необходимую информацию в любом месте, в удобное для него время.
Но так как потоки информации только увеличиваются то для ее создания, обработки, хранения и передачи необходимо разрабатывать все новые и новые средства и приспособления. Существует множество компаний и корпораций, специализирующихся на разработках программного обеспечения, операционных систем, усовершенствовании и разработке новых более совершенных компьютеров, приспособлений для ввода и вывода информации, аксессуаров для удобства обращения с компьютером и ускорения обработки информации.
Const
n = 5;//Емкость памяти типа "кольцо"
type
Ring = array[1..n] of integer;
var
ir: integer;
R: Ring;
procedure Add2Ring(a: integer);
// Добавляет в кольцо очередной элемент
begin
if ir = n then ir := 1
else ir := ir + 1;
R[ir] := a
end;
var
i, S, d: integer;
P: longint;
begin
S := 0;
ir:=0;
writeln('Вводите числа, 0 - конец ввода');
for i := 1 to n do
begin
readln(d);
S := S + d;
Add2Ring(d)
end;
repeat
readln(d);
if d <> 0 then Add2Ring(d);
until d = 0;
P := 1;
for i := 1 to n do P := P * R[i];
writeln('Сумма первых ', n, ' чисел: ', S, ', произведение последних: ', P)
end.
Нужно сначала перевести размер в дюймы. 1 дюйм = 2.54 см, значит 33.02/2.54 = 13 дюймов.
dpi - это количество точек на дюйм, значит разрешение по горизонтали будет 600*13 = 7800 точек, по вертикали 1200*13 = 15600 точек. Всего в изображении будет 7800 * 15600 = 121680000 точек.
Каждая точка кодируется 4 битами, значит объем изображения в битах равен 121680000*4 = 486720000 бит = 60840000 байт = 59414 кбайт = 58 Мбайт
Ответ: 58 Мбайт
Var
i, x, y: integer;
a: array[1..30]of integer;
begin
readln(x, y);
for i := 1 to 30 do read(a[i]);
for i := 1 to 30 do
if (i mod 2 = 0) and (a[i] >= x) and (a[i] <= y) then
begin
write('YES');
exit;
end;
write('NO');
end.