Напишите программу на Паскале См фото

// PascalABC.NET 3.6

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Where(p -> p mod 10 = 6).Min.Print

end.

Для начала, переведем код в десятичную систему счисления.

110100102 = 21010

110011002 = 20410

110011112 = 20710

110100112 = 21110

Получаем: 210 204 207 211

Зная, что буква «А» кодируется как 192, а код каждой последующей буквы на 1 больше кода предыдущей буквы. Определим код остальных букв и расшифруем наше слово.

А-192

Б-193

В-194

Г-195

Д-196

Е-197

Ё-198

Ж-199

З-200

И-201

Й-202

К-203

Л-204

М-205

Н-206

О-207

П-208

Р-209

С-210

Т-211

У-212

Ф-213

Х-214

Ц-215

Ч-216

Ш-217

Щ-218

Ъ-219

Ы-220

Ь-221

Э-222

Ю-223

Я-224

СЛОТ

1)
Дано:
K=1024*768=786 432
N=16 777 216
Найти:
V-?

Решение:
V=K*I
I=log₂N
I=log₂16777216=24 бит
V=768432*24=18874368 бит : 8=2359296 байт : 1024=2304 Кб : 1024=2.25 Мб
ответ: 2.25 Мб

2)
Дано:
K=1600*1200=1 920 000
N=16 777 216
Найти:
V-?

Решение:
V=K*I
I=log₂N
I=log₂16777216=24 бит
V=1920000*24=46080000 бит : 8=5760000 байт : 1024=5625 Кб : 1024≈5.5 Мб
ответ: видеокарту с 64 Мб памяти

3)
Дано:
K=1024*768=786 432
I=16 бит
Найти:
V - ?

Решение:
V=K*I
V=786432*16=12582912 бит : 8=1572864 байт : 1024=1536 Кб : 1024=1.5 Мб
Гц (частота) - количество действий в одну секунду => 1.5 Мб * 75=112.5 Мб
ответ: 112.5 Мб