Для начала надо найти i(вес 1 символа, т.е чему равен 1 символ в битах) Для этого есть формула N=2^i ; N(Мощность алфавита) Подставляем в формулу мощность алфавита. 64=2^6 значит i=6 бит, а как получил 6 тут просто нужно , 2×2×2×2×2×2=64 , кол.двоек означает вес 1 символа. Теперь, чтобы найти I(3 страниц)нужно (кол.страниц×кол.строк×кол.символов×вес 1 символа) I=3×40×60×6=43'200 бит, теперь переведем в байты по условию задачи. 43'200 бит=43'200÷8=5'400байт ответ:5'400 байт количество информации содержат 3 страницы.
Для этого есть формула N=2^i ; N(Мощность алфавита)
Подставляем в формулу мощность алфавита.
64=2^6 значит i=6 бит, а как получил 6 тут просто нужно , 2×2×2×2×2×2=64 , кол.двоек означает вес 1 символа.
Теперь, чтобы найти I(3 страниц)нужно (кол.страниц×кол.строк×кол.символов×вес 1 символа)
I=3×40×60×6=43'200 бит, теперь переведем в байты по условию задачи.
43'200 бит=43'200÷8=5'400байт
ответ:5'400 байт количество информации содержат 3 страницы.
begin
var a,b,c:integer;
write('Введите числа a,b: '); readln(a,b);
for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);
writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');
end.
Примечание:
Если хотите сделать защиту от некорректного ввода, то программа будет выглядеть так:
begin
var a,b,c:integer;
write('Введите числа a,b: '); readln(a,b);
if (a.ToString.Length<>4) or (a<0) then
writeln ('Число а должно быть положительным четырехзначным')else
begin
if (b.ToString.Length<>2) or (b<10) then
writeln ('Число b должно быть положительным двухзначным') else
begin
for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);
writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');
end;
end;
end.