Решите! в тетрадях для контрольных работ необходимо записать условие , применить необходимые формулы для решения и записать ответ.13. изображение размером (количество точек на сантиметр) 60х30 имеет объем 300 байт, каков информационный вес одного пикселя этого изображения в битах? 14. автор получил рукопись от друга из ирландии, которая была записано буквами 64-символьного алфавита и содержала 2400 символов. достаточно ли 1гб памяти для хранения этой рукопись на диске. (в ответе необходимо найти информационный объем сообщения и ответить на поставленный вопрос в форме: ответ: ……. гб, нет не хватит или да хватит)15. информационное сообщение объёмом 750 битов состоит из 150 символов. какова мощность алфавита, с которого записано это сообщение. 16. реферат состоит из 32 листов, на каждом листе 120 строчек, содержащие по 50 символов в каждой. в кодировке unicode, каждый символ кодируется 16 битами информации. каков информационный объем файла в килобайтах? 17. файл размеров 5 мбайт передается через некоторое соединение за 16 секунд. определите размер файла (в кбайт), которое можно передать через другое соединение с утроенной скоростью за 10 секунд.

ОК, всё это циклы.
1) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик увеличивается на 1. Пример:
for a:=1 to 10 do //Цикл будет выполнен 10 раз
2) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик уменьшается на 1. Пример:
for a:=10 to 1 do //Цикл будет выполнен 10 раз
3)Цикл с постусолвием. Если условие не выполняется, выполняется цикл. Его особенность заключается в том, что цикл выполнится хотя бы один раз вне зависимости от условия. Пример:
k:=0;
repeat
inc(k);
until k<9 //10 раз
4)Цикл с предусловием. Пока условие выполняется, выполняется и цикл.
Пример:
k:=0;
while k<>10 do
inc(k); //10 раз

{Данная программа переводит любое сочетание символов ASCII в систему счисления заданную пользователем.}

//Pascal ABC.NET v3.0 сборка 1111

var
 a,i,b,r,n,j,bug:integer;
 s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
 begin
  repeat
   b:=a mod n;
   a:=a div n;
   str(b,se);
   s+=se;
  until (a<=n-1);
 end;

beginreadln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

Пример ввода:
Домашняя работа на завтра.
2
Пример вывода:
11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-

{Таким образом, фразу "Домашняя работа на завтра." можно закодировать как "11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-".}