508,03=5*10^2+0*10^1+8*10^0+0*10^-1+3*10^-2
1101,001=1*2^3+1*2^2+0*2^1+1*2^0+0*2^-1+0*2^-2+1*2^-3
C=12 E=14 D=13 A=10 значит
CE,DA=12*16^1+14*16^0+13*16^-1+10*16^-2
64=2^6 --> 6 бит для кодировки одного символа
128=2^7 --> 7 бит для кодировки одного символа
11*6=66 бит
11*7=77 бит
У жителей второй планеты сообщение из 11 символов несёт информацию на 11 бит больше, чем сообщение такой же длины жителей первой планеты
77-66=11 бит
Var
i, p: integer;
begin
p := 2;
for i := 3 to 7 do p:=p*i;
Writeln('Произведение равно ',p);
end.
<em><u>Тестовое решение:</u></em>
Произведение равно 5040
Переводим в двоичную систему счисления
592 / 2 = 296 | 0 в остатке
296 / 2 = 148 | 0
148 / 2 = 74 | 0
74 / 2 = 37 | 0
37 / 2 = 18 | 1
18 / 2 = 9 | 0
9 / 2 = 4 | 1
4 / 2 = 2 | 0
2 / 2 = 1 | 0
1
затем, пишем нули и единицы снизу-вверх
1001010000
и приписываем недостающие нули
0000 0010 0101 0000 (32 бита)
так же это число не является отрицательным,
поэтому вычислять дополнительный
(или обратный код) не нужно
Ответ: 0000001001010000
3. program n3;
uses crt;
var b:integer;
begin
write('Введите число ');
read(b);
writeln(b);
<span>end.
4. </span>program n4;
uses crt;
var c:real;
begin
write('Введите число ');
readln(c);
c:=c*2;
writeln('Ответ равен 'c);
<span>end.
5. </span>program n5;
uses crt;
var y,z,x:real;
begin
write('Введите число ');
readln(x);
y:=5.5;
z:=x-y;
writeln('Ответ равен 'z);
<span>end.
6. </span>program n6;
uses crt;
var y,x,z:real;
begin
write('Введите число ');
readln(x);
y:=2.5;
z:=x/y;
writeln('Ответ равен 'z);
<span>end.</span>