Ключевые слова программирования паскаль , что они обозначают: and, end, nil, set, array, file, not, then, begin , for, of, to, case, wrile, downto , recond, with , function , or , type , const , goto, packed, until, div, if, procedure, var , do , in, program , else, mod, repeat! нужно!

And   (энд) - иend   (энд) - конецnil   (нил) - нульset  (сет) - множествоarray   (эрей) - массивfile   (файл) - файлnot   (нот) - неthen   (зен) - тоbegin   (бегин) - началоfor   (фo) - дляof   (оф) - изto   (ту) - увеличивая доcase   (кейс) - вариантwhile  (вайл) - пока downto  (даунту)- уменьшая до record   (рикод) - записьwith   (вис) - сfunction   (фанкшн)- функцияor   (ор) - илиtype   (тайп) - типconst   (конст) - константаgo to   (гоу ту)- переход наpacked   (пэкт) - упаковатьuntil   (антил) - доdiv   (див) - разделитьif  (иф) - еслиprocedure()   - процедураvar   (вар) - переменнаяdo   (ду) - выполнитьin   (ин) - вprogram   (програм) - программаelse   (элс) - иначеmod   (мод) - модульrepeat   (рипит) - повторять

1. количество точек = 64*64. объем файла = 64*64*16 бит = 64*64*16/8 байт = 64*64*2 байт = 64*64*2/1024 кбайт = 8 кбайт 2. размер цифрового моноаудиофайла измеряется по формуле:       a = d*t*i, где d – частота дискретизации (гц), t – время звучания или записи звука, i - разрядность регистра (разрешение). 44,1 кгц = 44100 гц   a = 44100*2*16 бит = 44100*2*16 / (8*1024) кбайт =  172,265625 кбайт  ≈ 172,3 кбайт 3. общее количество символов для записи номеров = 20+10=30 для кодирования одного символа необходимо log(2)30  ≈ 5 бит (2^5=32). для записи одного номера требуется 8*5 бит = 40 бит = 40/8 байт = 5 байт для хранения 50 номеров потребуется 50*5 байт = 250 байт

Var   number: real;   p, k, i, s,c: integer;   str1, str2: string; begin   readln(number);                                                                     str(number, str1);   str2: = copy(str1, pos('.', str1)+1, 3);   val(str2,k,c);   s: = 0;   while (k < > 0) do   begin       s: = s + (k mod 10);       k: = k div 10;   end;     writeln(s); end.