Паскаль abc
1. program example;
var f: array [1..10] of real;
k, m: integer;
begin
write (‘ введите количество элементов массива’); read (m);
for k:=1 to m do
begin f[k]:= sqrt(k);
writeln (f[k]); end;
end.
Для заданной программы укажите:
а) имя массива
б) количество элементов в массиве
в) максимально возможное количество элементов
г) индекс элемента
д) элемент массива

1. Если считать, что в русском алфавите 32 буквы (без Ё), то по формуле мощности алфавита получаем: N = 2^I, 32= 2^5;I = 5. (Количество информации в одном символе)
Значит в слове ИНФОРМАТИКА (11 букв) содержится 5 * 11 = 55 бит.
2. Не совсем корректные условия, не дано, сколько бит занимает 1 символ. Примем те же условия, что и в следующей задаче: 8 бит = 1 байт.
Тогда Количество символов = 305 * 38 * 49 = 567910
Количество информации = 567910 * 1 байт = 554,6 кБ
3. На одной странице 40*64 = 2560 символов. Это занимает 2560 байт.
20 кБ = 20480 Б. Количество страниц = 20480 / 2560 = 8 стр.

// Написать программу: Гречу, массой х г, рассыпают по пакетам: по а г в каждый. 
//Пакетов может быть неограниченное количество. Сколько гречи будет в
//последнем заполненном пакете?

var x,a  : longword;
begin
  writeln ('Введите общую массу гречи, в граммах');
  readln (x);
  writeln ('Введите массу насыпаемой в пакет гречи, в граммах');
  readln (a);
  writeln ('полных пакетов будет ',(x div a));
  if (x mod a)=0  then writeln ('В последнем насыпанном пакете будет ',a,' грамм гречи')
                  else writeln ('В последнем насыпанном пакете будет ',(x mod a),' грамм гречи');
end.