При регистрации на сервере каждый пользователь получает уникальный персональный код, состоящий из 15 символов, каждый из которых может быть одной из букв алфавита мощностью 50. При этом в базе данных сервера формируется запись, содержащая этот код и дополнительную информацию о пользователе. Для представления кода используют посимвольное кодирование, все символы кодируют одинаковым минимально возможным количеством бит, а для кода в целом выделяется минимально возможное целое количество байт. Для хранения данных о 53 пользователях потребовалось 1855 байт. Сколько байт выделено для хранения дополнительной информации об одном пользователе? В ответе запишите только целое число — количество байт.

n = 2^i

n = 2^5 = 32

ответ. в классе 32 ученика

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end. 

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.