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

Сколько ячеек памяти занимает абзац берестяные грамоты ?

👇
Ответ:
minzilyana
minzilyana
09.01.2020
Фраза "Берестяные грамоты" содержит 18 символов, включая пробел между словами.
При однобайтной кодировке (ASCII), она займет 18 байт, а при двухбайтной (UNICODE) - 18х2=36 байт.
4,8(16 оценок)
Ответ:
dimashevchuk007
dimashevchuk007
09.01.2020
Сколько букв+пробелов=столько и байт.
18 получается.

Удачи!:)
4,5(36 оценок)
Открыть все ответы
Ответ:
Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

uses GraphABC; 

begin 
Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; 
Pen.Color := Color.Red; 
Pen.Width := 3; 
OnMouseDown := (x,y,mb) -> MoveTo(x,y); 
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); 
var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name;
OnKeyDown:=k->if k=13 then begin
SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end;
end.
4,4(48 оценок)
Ответ:
Katia1717
Katia1717
09.01.2020
Задание 5

program SumSeq;

 

{$APPTYPE CONSOLE}

 

uses

  SysUtils;

//const m:Integer  ;

var

  i, j, m, s:Integer;

  n: array of Integer;

begin

  s:=0;

  Writeln(m);

  Writeln('vvedite m');

  Readln(m);

  SetLength(n,m);

  for i:=0 to m do

    begin

      j:=Random(10);

      if j<5

         then n[i]:=-1*j

         else n[i]:=j;

      write(n[i], ' ')

    end;

  Writeln;

  Writeln('To continue push >>ENTER');

  Readln;

 

  for i:=0 to m do

    begin

      if n[i]<0

        then s:=s+sqr(n[i])

    end;

   writeln('s=',s);

   readln

 

 

  { TODO -oUser -cConsole Main : Insert code here }

end.

4,6(73 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ