4 года назад

Решить с проверкой сложения:262-72 ,356-207 (и это всё в восьмиричной системе)

Знания

Информатика

2 ответа:

Сергей Филин4 года назад

0 0

262-72= 190 - проверка 190+72 , 356-207=149 проверка 149+207 ,

Ficus22 [8]4 года назад

0 0

262                                      356
-72                                    - 207
_____                                  ______
1 7 0 в восьмеричной 147 в восьмеричной
Весь фокус в том, что когда занимаешь единицу выссешего разряда, то получаешь 8 единиц низшего, а не 10, как это в десятичной системе счисления.

Читайте также

Какова информационный вес одного символа компьютерного алфавита мощность которого равна 512?

Montale

Ответ:9

Объяснение:

N=512

N=2^i

2^9=512

i=9

0 0

4 года назад

№1. Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 11 оканчивается на 1.№2.

андрей хоменко

2
"1011"
5
"21"
10
"11"

5
"34"
15
"14"

3)4
"123"
6
"43"
8
"33"
12
"23"
24
"13"

текст скрипта

c = 27
ch="3"
for i in 2..36
   t = c.to_s(i)
   if t[t.length-1..t.length-1] == ch
       p i,t
   end
end

0 0

4 года назад

1)Вывести в обратном порядке второе слово строки. Подсчитать количество букв в нем. 2) Составить программу для вычисления Т=(R/Q

оля09 [314]

var
x: string;
arr: array of char;

begin
readln(x);
arr := x.Split(' ')[1].ToCharArray();
System.Array.Reverse(arr);
writeln(length(arr), ' ', new string(arr));
end.
---------------------------------------
var
c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
r, q, s: real;
i, a, b: byte;

begin
q := 1;
i := 1;
r := c.Min();
while (i < length(c)) do
begin
q *= c[i];
i += 2;
end;
readln(a, b);
s := b - a - 1;
writeln('T = ', (R / Q + 1) + S);
end.
-----------------------------
const
k = 5;
p = 5;

var
f: array [1..k, 1..p] of string;
o: real;
df: byte;

begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 99).ToString();
write(f[i, j]:3);
if (j >= 7 - i) then
begin
o += integer.Parse(f[i, j]);
df += 1;
f[i, j] := '██';
end;
end;
writeln();
end;
writeln();
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
writeln(o / df);
end.

0 0

4 года назад

Составьте программу для вычисления площади четырёхугольника с координатами вершин (x1, y1),(x2, y2),(x3, y3),(x4, y4).Площадь че

Skimenok

TYPE
 TPoint = Record x, y: Real; End;
VAR
 a, b, c, d: TPoint;

 Function Pl(a, b, c: TPoint): Real;
 Var v1, v2: TPoint;
 Begin
 v1.x := a.x - b.x; v1.y := a.y - b.y;
 v2.x := a.x - c.x; v2.y := a.y - c.y;

 Pl := Abs(v1.x * v2.y - v1.y * v2.x) / 2;
 End;

BEGIN
 Read(a.x, a.y, b.x, b.y);
 Read(c.x, c.y, d.x, d.y);

 Write(Pl(a, b, c)+Pl(a, c, d));
END.

0 0

4 года назад

Имеется книга 290 страниц в каждой странице по 39 строк в каждой строке по 67 символов .Можно ли ее разместить на диске объемом

fenkis

Задача 1

(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)

Дано:

K = 290 * 39 * 67 = 757770 шт

Пусть i = 8 бит (Кодировка ASCII)

I - ?

Решение:

I = K * i = 757770 * 8 бит = 6062160.0 бит

6062160.0 бит = 757770.0 байт = 740.009765625 Кбайт = 0.7226657867431641 Мбайт < 1.44 Мбайт значит можно

Ответ да

(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)

Дано:

K = 256 * 95 * 80 = 1945600 шт

Пусть i = 8 бит (Кодировка ASCII)

I - ?

Решение:

I = K * i = 1945600 * 8 бит = 15564800.0 бит

15564800.0 бит = 1945600.0 байт = 1900.0 Кбайт = 1.85546875 Мбайт = 0.001811981201171875 Гбайт

2 - 0.001811981201171875 = 1.998188019 Гбайт

0 0

3 года назад