Нужна . цифровой бланк оплаты услуги за пользование электроэнергией имеет вид: лицевой счет – поле из 12 цифр, месяц – поле длины 8 в алфавите из 22 символов, год – поле из 2 цифр, показание счетчика – поле из 10 цифр, оплачено – число в интервале от 0 до 1000. каждое поле кодируется минимально возможным набором битов. одна строка каталога представляется целым числом байтов. сколько байтов необходимо для хранения информации из одной строки бланка?

1. лицевой счет - 12 цифр (максимум 999 999 999 999) 2. месяц - 8 символов в алфавите из 22 символов 3. год - поле из двух цифр, максимальное значение 99 4. показание счетчика - 10 цифр (максимум 9 999 999 999) 5. оплачено - число с максимальным значением 1000 итоговая длина строки составит 40+40+7+34+10=131 бит. поскольку в одном байте восемь бит, длина в байтах будет округленно равна 17.

program pr1; uses crt; var stroka,stroka1: string; i,b,c,a: integer; mas: array['a'..'я'] of integer; r: char; beginclrscr; readln(stroka); readln(stroka1); b: =length(stroka); c: =length(stroka1); if b> c then begin for i: =1 to c do for a: =1 to b do if stroka[a]=stroka1[i] then mas[stroka1[i]]: =mas[stroka1[i]]+1; endelse begin for i: =1 to b do for a: =1 to c do if stroka1[a]=stroka[i] then mas[stroka[i]]: =mas[stroka[i]]+1; end; for r: ='a' to 'я' do if mas[r]> 0 then writeln(r,' ',mas[r]); end.

все просто:

 

всю программу писать не буду. вы должны сами понять и переписать (не скопировать).

 

1. как создать массив вы знаете (пусть будет переменная"a")

2. затем выводим массив на экран

3. далее пишем цикл. (+i,k: integer)

        for i: =1 to 6 do begin

                                          k: =a[i]; a[i]: =a[13-i]; a[13-i]: =k;

                                      end;

4, массив уже изменен. осталось вывести его на экран.

 

как вы поняли основная часть "3". остальное - стандрт.