Var c1,c2:char; begin Write('Введите две латинские буквы подряд без пробелов: '); Readln(c1,c2); c1:=UpCase(c1); c2:=Upcase(c2); if c1<c2 then Writeln('Первая буква следует в алфавите перед второй') else if c1=c2 then Writeln('Это одна и та же буква') else Writeln('Первая буква следует в алфавите после второй') end.
Тестовое решение: Введите две латинские буквы подряд без пробелов: Qp Первая буква следует в алфавите после второй
Символы для формирования пароля выбираются из алфавита размером 10+2*11=32 символа, которым будут присвоены коды от до 31. переводим 31 в двоичную ссисткму счисления, получая 11111, т.е. для хранения каждого символа алфавита потребуется 5 бит. Тогда весь пароль займет 5*15=75 бит, но он должен размещаться в целом количестве байт. 75/8=9.375, следовательно потребуется 10 байт. Для хранения 30 паролей потребуется объем 10*30=300 байт.
Что такое И=20 номеров я не понял. В условии понятие "номер" отсутствует.
Символы для формирования пароля выбираются из алфавита размером 10+2*11=32 символа, которым будут присвоены коды от до 31. переводим 31 в двоичную ссисткму счисления, получая 11111, т.е. для хранения каждого символа алфавита потребуется 5 бит. Тогда весь пароль займет 5*15=75 бит, но он должен размещаться в целом количестве байт. 75/8=9.375, следовательно потребуется 10 байт. Для хранения 30 паролей потребуется объем 10*30=300 байт.
Что такое И=20 номеров я не понял. В условии понятие "номер" отсутствует.
c1,c2:char;
begin
Write('Введите две латинские буквы подряд без пробелов: ');
Readln(c1,c2);
c1:=UpCase(c1); c2:=Upcase(c2);
if c1<c2 then Writeln('Первая буква следует в алфавите перед второй')
else
if c1=c2 then Writeln('Это одна и та же буква')
else Writeln('Первая буква следует в алфавите после второй')
end.
Тестовое решение:
Введите две латинские буквы подряд без пробелов: Qp
Первая буква следует в алфавите после второй