Program minsk;
var a: integer;
begin
writeln('В каком году был основан город Минск?');
writeln('В 1067г.');
writeln('В 993г.');
writeln('В 1147г.');
read(a);
if a=1067 then
writeln('Верно');
else
writeln('Не верно Минск был основан 1067г')
end.
бит свободно О_О
секунд = 202,9 минуты = 3,81 часа =)
1 Мбит = 131072 байт.
Имеем формулы:
1 байт = 8 бит
1 килобайт = 1024 байт
1 мегабайт = 1024 килобайт
1 гигабайт = 1024 мегабайт
Как считать:
учимся пользоваться этими величинами, как любыми другими.
Т. е. если надо перевести 8 мегабайт в байты, то берем и смотрим порядок действий, сначала умножаем на 1024(получаем килобайты), потом еще на 1024 и получаем байты, т. е. вот так:
8 МБ= 8*1024*1024=8388608 байт.
Соответсвенно, если надо перевести из меньших величин в большие, мы просто делим.
Var s:string;i:integer;
begin
i:=1; read(s);
while i<=length(s) do if (s[i]<'0') or (s[i]>'9') then delete(s,i,1) else i:=i+1;
write(s)
<span>end.</span>
2^14 бит = 2^(14-3) байт = 2^(11-10) кб = 2 кб