figa333
28.05.2021 16:43

1. Как выглядит десятичное число –108,2 в форме с плавающей запятой?
2.Количество различных символов, используемых для изображения числа в позиционной системе счисления это
3. В системах счисления с основанием больше 10 для представления чисел после цифр 0,1,2,…,9 используют латинские буквы в алфавитном порядке: A, B, C и т. д.

Какое число соответствует букве D?
4.Запиши число 221 в5 в десятичной системе счисления.
5.Запиши значение десятичного числа, которое в двоичной системе счисления соответствует числу 11111101.
6.Запиши десятичное число 2207 в системе счисления с основанием 9.
7.Запиши число 11316 в десятичной системе счисления.
8..Представь число 101100,000110111 2 в системе счисления с основанием 8.
9.Представь положительное число 4410

а) в 1-байтовом формате:

б) в 2-байтовом формате:

10. Представь число −64510 в 2-байтовом формате:

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
drsamsoff
19.07.2021 12:46

var 

  a, b, c: real;

 

begin

  writeln('Введите 3 любых числа');

  readln(a, b, c);

  if (a < b) and (a < c) then writeln(a, ' - наименьшее число');

  if (b < a) and (b < c) then writeln(b, ' - наименьшее число');

  if (c < a) and (c < b) then writeln(c, ' - наименьшее число');

  if (a > b) and (a > c) then writeln(a, ' - наибольшее число');

  if (b > a) and (b > c) then writeln(b, ' - наибольшее число');

  if (c > a) and (c > b) then writeln(c, ' - наибольшее число');

  readln; //Убрать если среда разработки не Turbo Pascal

end.

0,0(0 оценок)
Ответ:
revernastyn
19.07.2021 12:46
Разветвляющийся алгоритм

Var a,b,c,d,e:integer;

Begin

Writeln('Введите значения переменных');

Readln(a,b,c,d,e);

If (a>b) and (a>c) and (a>d) and (a>e) tnen

Writeln('Наибольшее из 5 чисел ', a)

Else

If (b>a) and (b>c) and (b>d) and (b>e) tnen

Writeln('Наибольшее из 5 чисел ', b)

Else

If (c>a) and (c>b) and (c>d) and (c>e) tnen

Writeln('Наибольшее из 5 чисел ', c)

Else

If (d>a) and (d>b) and (d>c) and (d>e) tnen

Writeln('Наибольшее из 5 чисел ', d)

Else

Writeln('Наибольшее из 5 чисел ', e);

End.

Циклический алгоритм

Type

Vector=array [1..10] of integer;

Var m:integer;

a:vector;

i:byte;

Begin

Writeln('Введите значения переменных');

For i:=1 to 5 do

      Readln (a[i]);

For i:=1 to 5 do

If  a[i]>a[i+1] then

m:=a[i];

Writeln('Наибольшее число ', m);

End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота