При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 15 символов и содержащий только символы из набора и, н, ф, о, р, м, а, т, к. каждый такой пароль в компьютерной программе записывается минимально возможным и одинаковым целым количеством байт (при этом используют посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством бит определите объём памяти в байтах, отводимый этой программой для записи 25 паролей.

Вроде 200 всего символов 9 это означает что один символ 4 бита (2^3 (8) < 9 < 2 4 (9)) длина пароля 15 4 * 15 . =60 бит = 8 байт ( 60 /8  округляем в большую сторону) 25 * 8 =200

Program asd; const n=30; var m: array[1..n] of integer; i,k,s: integer; begin  writeln('заполните массив: ');   for i: =1 to n do   begin    readln(m[i]);     end;     s: =0;     for i: =1 to n do    begin    if (m[i] mod 2=0) then      begin    inc(k);     s: =s+m[i];     end;     if (s mod 2=2) and (k mod 2=0) then    writeln('верно.')      else      writeln('не верно');     end; end.

Program project2; {$apptype console} uses  sysutils;     const n=30;         m=1; var b,c: array[m..n] of integer; i,a,s,y,s1: integer; begin write('vvedite trexsnachnoe chislo a: ');   readln(a);   y: =a;   s: =0;   while ( y< > 0 ) do    begin    s: =s + (y mod 10);     y: =y div 10;   end; writeln('summa zifr ravna: ',s); writeln; writeln('massiv: '); for i: =m to n do     begin  b[i]: =100+random(200);   write(b[i],' ');   c[i]: =b[i];   end; writeln;   writeln;     write('vse chisla, kotorye ravny po summe zifr: ') ;   for i: =m to n do      begin    s1: =0;   while ( b[i]< > 0 ) do    begin    s1: =s1 + (b[i] mod 10);     b[i]: =b[i] div 10;   end;     //write(' ',s1,' ');     if s=s1 then    begin    write(c[i],' ');     end;   end;         readln;   end.