М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Sova551
Sova551
26.10.2020 04:51 •  Информатика

Сколько символов содержит сообщение, записанное с 16-ти символьного алфавита, если его объём составил 1/16 часть мегабайта прям ,!

👇
Ответ:
haruto42
haruto42
26.10.2020
1024/16=64 Килобайта(1/16 мегабайта)
64*1024=65536 байт
65536*8=524288 бит
16=2^4 значит 1 символ весит 4 бита
524288/4=131 072 символа
4,6(11 оценок)
Открыть все ответы
Ответ:
Alesha2112
Alesha2112
26.10.2020
Function GetWord(s:string; var ptr:integer):string;
var
  i:integer;
begin
  i:=PosEx(' ',s,ptr);
  if i>0 then
    Result:=Copy(s,ptr,i-ptr)
  else
    Result:=Copy(s,ptr,length(s)-ptr+1);
  ptr:=i+1
end;

var
  f,g:Text;
  ib:integer;
  s,Fam,Im,Ot:string;
begin
  Assign(f,'Input.txt');
  Reset(f);
  Assign(g,'Result.txt');
  Rewrite(g);
  while not Eof(f) do begin
    readln(f,s);
    writeln(s); // отладочная выдача
    ib:=1;
    Fam:=GetWord(s,ib);
    Im:=GetWord(s,ib);
    Ot:=GetWord(s,ib);
    writeln(g,Im,' ',Ot,' ',Fam); // закомментарить строку для б)  
    writeln(Im,' ',Ot,' ',Fam);   // отладочная выдача
    writeln(g,Fam,' ',Im[1],'.',Ot[1],'.'); // закомментарить строку для а)
    writeln(Fam,' ',Im[1],'.',Ot[1],'.'); // отладочная выдача
  end;
  Close(f);
  Close(g)
end.

Тестовый прогон:

Иванов Петр Сергеевич
Петр Сергеевич Иванов
Иванов П.С.
Тарасова Анна Георгиевна
Анна Георгиевна Тарасова
Тарасова А.Г.
Коваленко Евгений Станиславович
Евгений Станиславович Коваленко
Коваленко Е.С.
Петрова Татьяна Вячеславовна
Татьяна Вячеславовна Петрова
Петрова Т.В.
Бородкин Тимофей Савельевич
Тимофей Савельевич Бородкин
Бородкин Т.С.
Пышка Варвара Семеновна
Варвара Семеновна Пышка
Пышка В.С.
Голобородько Ирина Олеговна
Ирина Олеговна Голобородько
Голобородько И.О.
4,4(23 оценок)
Ответ:
Mj3589
Mj3589
26.10.2020
INPUT "Kolichestvo okrugov. K="; k
INPUT "Kolichestvo partiy. M="; m
INPUT "Porog yavki izbirateley (v %). P="; p
DIM g(k, m + 1)
DIM pr(k, 1)
FOR i = 1 TO k
    CLS
    PRINT "Okrug  "; i
    g(i, 0) = i
    FOR j = 1 TO m
        PRINT "Golosov za partiyou "; j;
        INPUT g(i, j)
        pr(i, 1) = pr(i, 1) + g(i, j)
    NEXT j
    INPUT "Ne golosovalo "; g(i, m + 1)
    pr(i, 0) = i
    pr(i, 1) = 100 * pr(i, 1) / (pr(i, 1) + g(i, m + 1))
NEXT i
CLS
FOR i = 1 TO k
    FOR j = 1 TO k
        IF pr(i, 1) > pr(j, 1) THEN
            x = pr(i, 1)
            y = pr(i, 0)
            pr(i, 1) = pr(j, 1)
            pr(i, 0) = pr(j, 0)
            pr(j, 1) = x
            pr(j, 0) = y
        END IF
    NEXT j
NEXT i
PRINT "Itogi po golosovavshim"
PRINT "Okrug #", "Golosovalo (%)", "Pobedila partia #"
FOR i = 1 TO k
    PRINT pr(i, 0), pr(i, 1),
    IF pr(i, 1) >= p THEN
        PRINT "Yes. Sostojlis",
        max = 0
        FOR j = 1 TO m
            IF g(pr(i, 0), j) > max THEN
                max = g(pr(i, 0), j)
                x = j
            END IF
        NEXT j
        PRINT x
    ELSE PRINT "No. Ne sostojlis"
    END IF
NEXT i
4,7(73 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ