Для начала надо найти 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 страницы.
program dimavdovuskin497;
type t1 = integer;
t2 = double;
var n, i: t1;
x, summa, pr: t2;
begin
writeln('Напишите программу, вычисляющую: а) сумму n первых натуральных четных чисел; б) произведение n первых натуральных нечетных чисел.');
writeln;
write('Введите общее количество чисел: ');
readln(n);
writeln;
summa := 0;
pr := 1;
for i := 1 to n do
begin
write('Введите х: ');
readln(x);
writeln;
if (frac(x) = 0) then
begin
if (frac(x/2) = 0) then summa := summa + x
else pr := pr * x;
end;
end;
writeln('Сумма n первых натуральных четных чисел равна ', summa : 5 : 0);
writeln;
writeln('Произведение n первых натуральных нечетных чисел равно', pr : 5 : 0);
readln;
end.