Дан массив, заполненный случайными натуральными числами в диапазоне от 1 до 30000. Напишите подпрограмму, которая в этом массиве заменит все элементы у которых 1-я и последняя цифры равны (включая однозначные числа) на 0. Например из массива: 1 22 33 4444 533 36, получим 0 0 0 0 533 36. Размер массива заранее задан константой N. Используйте заголовок: procedure zamena(var a: TMas); Тип ТMas задан как array[1..N] of longint и может использоваться для описания параметров подпрограмм.

1. "Молекулы состоят из атомов!" - 27 символов.

27*16 = 432 бита = 54 байта.

2. "Я к вам пишу- чего же боле? Что я могу еще сказать?" - 51 символ.

51*16 = 816 бит = 102 байта.

3. "Любишь кататься- люби и саночки возить!" - 39 символов.

39*32 = 1248 бит = 156 байт.

4. "Семь раз отмерь, один раз отрежь!" - 33 символа.

33*5 = 165 байт (1320 бит).

В общем виде: пусть n - количество символов в тексте, i - количество бит на символ, тогда объём V будет равен V = ni.

Также следует помнить, что 1 байт - это 8 бит.

Объяснение: