PASKAL ABC - программирование циклов с использованием массивов 1. На прямой в порядке возрастания заданы координаты n точек: х1, х2, …, хn. Найти наибольшее расстояние между соседними точками, напечатать номера этих точек.
2. Даны натуральные числа х1, х2,…, xn. Определить произведение членов последовательности, являющихся нечетными числами.

16 символов

Объяснение:

I = К * i, где

I - информационный объём сообщения (документа)

К - количество символов в сообщении (документе)

i - информационный вес символа (количество бит, которым кодируется 1 символ)

N = 2^i, где

N - мощность алфавита (количество символов в алфавите)

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

Дано:

K = 10 страниц * 305 символов = 3050 символов

I = 1 525 байт = 12 200 бит

Найти:

N

I = К * i

i = I / K

i = 12 200 / 3050 = 4 бит

N = 2^4 = 16 символов

1 байт = 8 бит

var a: string;

begin

write ('Введите слово: '); read (a);

writeln ('Именительный падеж: ',copy(a,1,length(a)));

writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');

writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');

writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');

writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');

writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');

end.

Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.

Объяснение: