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

Пусть x=-3 какие действия произведет оператор:...if x<=5 then x:=2*x

👇
Открыть все ответы
Ответ:
лиана249
лиана249
21.06.2020
Function f16t2(s16:string):string;
const
  m:array['0'..'F'] of string=
    ('0000','0001','0010','0011','0100','0101','0110','0111',
     '1000','1001','','','','','','','','1010','1011','1100',
     '1101','1110','1111');
  m1:array['0'..'F'] of string=
    ('0','1','10','11','100','101','110','111','1000','1001','',
     '','','','','','','1010','1011','1100','1101','1110','1111');
var
  s:string;
  i:integer;
begin
  s16:=UpperCase(s16);
  s:=m1[s16[1]]+;
  for i:=2 to Length(s16) do s:=s+m[s16[i]]+;
  f16t2:=Copy(s,1,Length(s)-1)
end;

var
  s:string;
begin
  Write('Введите шестнадцатиричное число: '); Readln(s);
  Writeln('В двоичной системе: ',f16t2(s))
end.

Тестовое решение:
Введите шестнадцатиричное число: 5AC8e2
В двоичной системе: 101'1010'1100'1000'1110'0010

Если разбивка вывода по тетрадам не нужна, можно чуть упростить:
function f16t2(s16:string):string;
const
  m:array['0'..'F'] of string=
    ('0000','0001','0010','0011','0100','0101','0110','0111',
     '1000','1001','','','','','','','','1010','1011','1100',
     '1101','1110','1111');
  m1:array['0'..'F'] of string=
    ('0','1','10','11','100','101','110','111','1000','1001','',
     '','','','','','','1010','1011','1100','1101','1110','1111');
var
  s:string;
  i:integer;
begin
  s16:=UpperCase(s16);
  s:=m1[s16[1]];
  for i:=2 to Length(s16) do s:=s+m[s16[i]];
  f16t2:=s
end;

var
  s:string;
begin
  Write('Введите шестнадцатиричное число: '); Readln(s);
  Writeln('В двоичной системе: ',f16t2(s))
end.

Тестовое решение:
Введите шестнадцатиричное число: 5AC8e2
В двоичной системе: 10110101100100011100010
4,8(70 оценок)
Ответ:
alekcandrina200
alekcandrina200
21.06.2020
Пушкин "Сказка о мёртвой царевне и семи богатырях":
  Темной ночки Елисей
Дождался в тоске своей.
Только месяц показался,
Он за ним с мольбой погнался,
"Месяц, месяц, мой дружок,
Позолоченый рожок!
Ты встаешь во тьме глубокой,
Круглолицый, светлоокой,
И, обычай твой любя,
Звезды смотрят на тебя.
Аль откажешь мне в ответе?
Не видал ли где на свете
Ты царевны молодой?
Я жених ей". - "Братец мой,
Отвечает месяц ясный: -
Не видал я девы красной.
На стороже я стою
Только в очередь мою.
Без меня царевна видно
Пробежала". - "Как обидно!" -
Королевич отвечал.
Ясный месяц продолжал:
"Погоди; об ней быть может
Ветер знает. Он
Ты к нему теперь ступай,
Не печалься же, прощай".
 
"Ветер, ветер! Ты могуч,
Ты гоняешь стаи туч,
Ты волнуешь сине море,
Всюду веешь на просторе.
Не боишься никого,
Кроме бога одного.
Аль откажешь мне в ответе?
Не видал ли где на свете
Ты царевны молодой?
Я жених ее".-- "Постой, --
Отвечает ветер буйный, --
Там за речкой тихоструйной
Есть высокая гора,
В ной глубокая нора;
В той норе, во тьме печальной,
Гроб качается хрустальный
На цепях между столбов.
Не видать ничьих следов
Вкруг того пустого места,
В том гробу твоя невеста".
4,8(19 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ