Задать вопрос!

Задать вопрос!

Все категории

Багрова Светлана ...

4 года назад

6

Книга содержит 134 страниц. На каждой странице 39 строк. В каждой строке 59 символов (включая пробелы). Найти информационный объ

ём текста.

Информатика

1 ответ:

Яндекс Маркет [7]4 года назад

0 0

По формулам считаем:

N=2^i
I=k*i

134=2^8
I=308334*8=2466672 бит=308334 байт=301 кбайт

Читайте также

Привести пример объекта трех его свойств и трех значений каждого из них.

nasyaq [3]

Камень
свойства:тяжелый,черный,круглый
их значения:вес,цвет,форма)

0 0

3 года назад

Помогите написать программу на PascalABCNETВХОДНЫЕ ДАННЫЕДана последовательность натуральных чисел, завершающаяся нулем. ВЫХОДНЫ

Olesya85

Var
n,npred,maxs,nseq:integer;
begin
Writeln('Вводите натуральные числа, 0 - конец ввода');
maxs:=0; npred:=-32768; nseq:=1;
repeat
    Read(n);
    if n<>0 then begin
      if n=npred then Inc(nseq)
      else begin nseq:=1; npred:=n end;
      if maxs<nseq then maxs:=nseq
    end
until n=0;
Writeln('Наибольшая длина последовательности равна ',maxs)
end.

<em><u>Тестовое решение:</u></em>
Вводите натуральные числа, 0 - конец ввода
1
5
5
0
Наибольшая длина последовательности равна 2

0 0

4 года назад

Представьте в восьмиразрядном формате прямые коды десятичных чисел 1)64 2)58 3)72 4)96

OhcumelayaFrau [13K]

1) 64 ⇒ 01000000
2) 58 ⇒ 00111010
3) 72 ⇒ 01001000
4) 96 ⇒ 01100000

0 0

4 года назад

Прочитать ещё 2 ответа

8 задание, кто понимает в информатике хорошо, напишите пожалуйста.

Olegg62 [21]

Program NoName;
var num: integer;
x, y: real;
Begin
readln(num);
if (num>=10)and(num<=99)then
begin
x := trunc(num/10);
y := (num/10-trunc(num/10))*10;
writeln(x+y);
writeln(x*y);
writeln(y*10+x);
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите решить 2 задачи в паскале: 1)Определить равны ли все цифры заданного пятизначного числа. 2)Каждое число Фибоначчи вычис

dexter47 [7]

1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.

0 0

4 года назад