Валфавите некоторого языка используются 128 различных символов (сюда входят буквы, знаки препинания, скобки и иные специальные символы определите минимальное количество бит, которое потребуется для кодирования одного символа. известно, что каждый символ кодируется одинаковым количеством бит. ответ: .

1. программа "анкета": program anketa; var a,b,d: string; c: char; begin writeln('введите ваши имя и фамилию в именительном падеже: '); readln(a,b); writeln('введите букву класса: '); readln(c); writeln('введите ваше хобби: '); readln(d); writeln('меня зовут ',a,' ',b,'; '); writeln('я учусь в 7 "',c,'" классе гимназии 524; '); writeln('моё хобби - ',d,'; '); writeln('периметр прямоугольника равен 30'); writeln(' сегодня ярко светит солнце! ') end. 2. программа "опросы": program oprosy; var a,b,c: integer; d: real; begin writeln('введите ваши оценки по шкале: '); readln(a,b,c); d: =(a+b+c)/3; writeln('ваша средняя оценка за тесты - ',d,'.'); end. 3. программа "периметр прямоугольника": program perimetr; var a,b,c: integer; begin writeln('введите стороны прямоугольника: '); readln(a,b); c: =(a+b)*2; writeln('периметр прямоугольника = ',c,'.'); end.

чето типо того

 

uses crt;

var a,b,s: real; z: char; procedure vyvod(s: real); begin write(s); end; procedure plus(a,b: real); begins: =a+b; write('suma = '); vyvod(s); end; procedure minus(a,b: real); begins: =a-b; write(' = '); vyvod(s); end; procedure mn(a,b: real); begins: =a*b; write(' = '); vyvod(s); end; procedure de(a,b: real); begins: =a/b; write(' = '); vyvod(s); end; procedure vvod(a,b: real; z: char); beginwriteln('write a,b'); readln(a,b); writeln('choose + - * / '); readln(z); case z of '+': plus(a,b); '-': minus(a,b); '*': mn(a,b); '/': de(a,b); end; end;

beginvvod(a,b,z);

readln; end.