Задание 1. Используя таблицу символов, записать последовательность десятичных числовых кодов в кодировке Windows для своих ФИО, названия улицы, по которой проживаете. Таблица символов отображается в редакторе MS Word с команды: вкладка Вставка–Символ– Другие символы. В поле Шрифт выбираете Times New Roman, в поле из выбираете кириллица. Например, для буквы «А» (русской заглавной) код знака– 192.

ИСЛАМОВА РЕГИНА МАРАТОВНА
СОЦИАЛИСТИЧЕСКАЯ

👇

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

Ответ:

mandarinkamare007

03.11.2022

Список, в котором его пункты содержат подпункты.

Пример: список образовательных учреждений:
1. Начальное образование
1.1. детские сады.
1.1.1. частные
1.1.2. муниципальные
1.2. учреждения дополнительного дошкольного образования.
2. Среднее образование
2.1. школы
2.1.1. обычные
2.1.2. коррекционные
2.1.3. с уклоном на что-либо (языки, история и т.д.)
2.2. учреждения дополнительного образования.
3. Среднее специальное образование
3.1. училище
3.2. техникум
3.3. колледж
Каждое из видов делятся на гуманитарные и технические.
4. Высшее образование
4.1. институт
4.2. университет
4.3. академия
и т.д.

4,4(98 оценок)

Ответ:

adamoon44

03.11.2022

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

function DecToa(n:string;k:integer):string;
// Перевод из десятичной системы в систему по основанию k
begin
var s:='0123456789';
Result:='';
var PointPos:=Pos('.',n);
var IntPart:integer;
if PointPos>0 then begin // есть дробная часть
    var FracPart:=Frac(n.ToReal);
    var m:=0;
    while True do begin
      var r:=FracPart*k;
      Result+=s[Trunc(r)+1];
      FracPart:=Frac(r);
      m+=1;
      if (m=15) or (FracPart=0) then break
      end;
    IntPart:=n[:PointPos].ToInteger;
    end
else IntPart:=n.ToInteger;
if Result<>'' then Result:='.'+Result;
while IntPart>0 do begin
    Result:=s[IntPart mod k+1]+Result;
    IntPart:=IntPart div k
    end;
if Result='' then Result:='0';
if Result[1]='.' then Result:='0'+Result
end;

begin
var n:=ReadlnString('Какое число перевести?');
var p:real;
if not real.TryParse(n,p) then Writeln('Такая запись недопустима')
else
    if n.Contains('e') or n.Contains('E') then
      Writeln('Запись в экспоненциальном формате не разрешена')
    else begin
      var k:=ReadInteger('Укажите основание системы:');
      if k.Between(2,36) then
          Writeln(n,'(10) = ',n[1],DecToA(n[2:],k),'(',k,')')
      else Writeln('Допустимы основания 2..36')
      end
end.

Примеры
Какое число перевести? 123,5433
Такая запись недопустима

Какое число перевести? -353.093234
Укажите основание системы: 21
-353.093234(10) = -GH.1K2951B0DJAH1BI(21)

Какое число перевести? 6523
Укажите основание системы: 8
6523(10) = 61013(8)

Какое число перевести? 1.2e-18
Запись в экспоненциальном формате не разрешена

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

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

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

05.06.2023

Узнайте, как скачать ролики с YouTube, используя Chrome...

Здоровье

30.09.2022

10 способов использования эфирных масел для улучшения вашего здоровья и красоты...

Дом-и-сад

28.09.2020

Как удалить кофейное пятно с шелка: лучшие способы...

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