Измерьте информационный объем сообщения "ура скоро новый год! " в битах,байтах,кб, мб

👇

Ответ:

Nastenavip80

05.03.2021

В кодировке ASCII(чаще всего используется) 1 символ занимает 1 байт(8 бит).
Т.к. в Вашей фразе 20 символов(считаются и пробелы, и знаки препинания)
получаем:
8 * 20 = 160 бит.
1 * 20 = 20 байт
0,16 килобита
0,02 килобайта
0,000015 мегабита
0,000019 мегабайта.
В любом случае - проверь.
Для справки: в кодировке Unicode 1 символ занимает 16 бит(2 байта).

4,7(64 оценок)

Открыть все ответы

Ответ:

srySyutoduofyi

05.03.2021

1.y=m1*m2/Sqr(r)

2. Program my;

var S,a,b,h:real;

begin

write('Введите длины оснований и высоты');

readln(a,b,h);

S:=(a+b)*h/2;

readln(S);

end.

3. Program my;

var a:integer;

begin

writeln('Введите трехзначное число');

readln(a);

If (a mod 10=7) then write('Данное число заканчивается на 7');

else write('Данное число не заканчивается на 7');

end.

4.Program my;

var a,b,:integer;

begin

readln(a,b);

If (a>b) then writeln(Sqr(a), b+10);

If (a=b) then writeln('Числа равны');

If (a<b) then writeln(Sqr(b), a+10);

end.

Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.

4,7(66 оценок)

Ответ:

UltraTwItTeR

05.03.2021

Проверено, работает на Паскаль АВС:

Program rabota_s_massivom;
uses crt;
label metka;
const N=30;
var M: array[1..N] of integer;
i,k,s,kmax,reserve:integer;
begin
for i:=1 to N do
    begin
      write('Введите ',i,'-й элемент: '); readln(M[i]);
    end;
writeln('Массив:');
for i:=1 to N do
    begin
      write(M[i],' ');
    end;
k:=1; {Число элементов в текущей последовательности. Изначально считаем, что последовательность состоит из одного (первого) элемента}
{Ищем первый нечётный элемент:}
repeat
    reserve:=reserve+1;
until (m[reserve] mod 2 = 1) or (reserve = 30);
writeln(reserve);
if (m[reserve] mod 2 = 0) and (reserve = 30) then
begin
    writeln('Все числа чётные. Искомая последовательность не существует');
    goto metka;
end;
s:=M[reserve]; {Сумма элементов текущей последовательности пока что равна первому нечётному элементу}
kmax:=0; {Наибольшая длина последовательности}
for i:=reserve+1 to n do {Перебираем все элементы, начиная с первого нечётного}
    begin
      if (m[i] mod 2 = 1)
        then {Если текущее число всё ещё нечетно}
          begin
            s:=s+m[i]; {Увеличиваем сумму последовательности}
            k:=k+1 {Увеличиваем счётчик длины последовательности}
          end
        else {Если встретилось четное число}
          begin
            if k>kmax then {Проверяем, не является ли полученная последовательность длиннее нашего максимума}
              begin {Если да:}
                kmax:=k; {Запоминаем новую длину последовательности}
                reserve:=s {Запоминаем сумму её элементов}
              end;
            k:=0; {Устанавливаем длину новой последовательности равной 0}
            s:=0 {Сумма элементов этой последовательности тоже пока что = 0}
          end;
    end;
if k>kmax then {Если самая длинная последовательность находится в конце массива, проверим ещё раз текущий максимум}
    begin
      kmax:=k;
      reserve:=s
    end;
writeln('самая длинная последовательность нечётных чисел состоит из ',kmax,' элементов');
writeln('и сумма этой последовательности равна ',reserve);
metka: end.

4,8(43 оценок)

Это интересно:

Компьютеры-и-электроника

22.03.2021

Как выйти из учетной записи Google на Android–устройстве?...

Мир-работы

10.09.2022

Как стать зеленым беретом: все, что вы хотели знать о вступлении в элитное подразделение армии...

Компьютеры-и-электроника

19.07.2021

Как контролировать контент на YouTube с помощью блокирования по ключевым словам?...

Образование-и-коммуникации