128×200=25600 Пикселей
каждый Пикселей обусловлен 16 бит информации
25600×16bit=25600×2b=51200b либо 51.2 килобайт. либо 50 кибибайта
1)сколько всего букв и цифр используется?26+10(цифры)=36, ближайшая степень двойки большая 36-это 64, то есть два в 6. то есть шесть бит занимает каждый символ пароля.
2)в пароле 9 символов, 9*6=54 бит нужно для хранения одного пароля
3)54бит/8=7байт нужно для хранения одного пароля(в одном байте 8 бит)
4)значит сто паролей занимают 700 БАЙТ
Var
C,C2:char;
i,B:integer;
Begin
B:=1;
Read(C);
C2:=C;
While C <> '.' do
Begin
if C2 > C then B:=0;
C2:=C;
Read(C);
End;
Write(B <> 0)
End.
16 бит=2байта
Чтобы перевести из байт в Килобайты необходимо разделить на 1024
(8*56*40*2)/1024=35Кб
Var
age: integer;
begin
writeln('Сколько вам лет?');
readln(age);
if age >= 18 then
writeln('Замечательно. Вы уже можете водить автомобиль')
else
writeln('К сожалению, водить автомобиль вам рано');
end.