В информатике и при проектировании операционных систем все кратные приставки принимаются двоичными, 1 терабайт получается равным 2^40 (=1099511627776) байт, а 1 мегабайт – 2^30 (=1073741824) байт.
Создатели жестких дисков опираются на мнение международных советов, заявляющих, что для двоичных приставок должны использоваться отдельные приставки, не совпадающие с десятичными (в частности, для 2^40 должно быть теби-, а не тера-). Поэтому в жёстком диске емкостью 1 Тб будет 10^12 байт.
При присоединении жесткого диска к компьютеру операционная система переводит "десятичные" терабайты в "двоичные" и получает 10^12 / 1073741824 = 931 Гб, а не 1 Тб.
Дано:
К=800*600
i= 16 бит
T=10 с
v=20 кадра/с
А-?
Решение:
I=K*i
A=I*v*T
I=800*600*16 бит=7680000 бит=937,5 Кбайт
A=937,5 Кбайт*20 кадра/с * 10с=187 500 Кбайт=0,18 Гбайт
Ответ: 0,18 Гбайт
Const
n = 10;
var
x: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Write('Элементы массива: ');
for i := 1 to n do
begin
x[i] := Random(10000);
Write(x[i]:5)
end;
i := 1; flag := false;
while (i <= n) and (not flag) do
begin
flag := (x[i] >= 99) and (x[i] <= 1000);
if (not flag) then i := i + 1
end;
Writeln;
if flag then Writeln('Найден элемент: ', x[i])
else Writeln('Искомого числа нет')
end.
Тестовое решение:
Элементы массива: 4136 4921 244 1489 1714 5731 4187 7990 1974 113
Найден элемент: 244
const
n = 13;
var
x: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Write('Элементы массива: ');
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4)
end;
i := n;
flag := false;
while (i > 0) and (not flag) do
begin
flag := (x[i] >= -10) and (x[i] <= 20) and (x[i] mod 3 = 0);
if (not flag) then i := i - 1
end;
Writeln;
if flag then Writeln('Найден элемент: ', x[i])
else Writeln('Искомого числа нет')
end.
Тестовое решение:
Элементы массива: 21 -45 -12 9 -36 42 -49 -48 37 48 -43 26 -34
Найден элемент: 9
var
n: longint;
s: string;
k, er: integer;
begin
Write('Введите натуральное число-> '); Readln(n);
Str(n, s);
Val(s[1], k, er);
if (k mod 2 = 0) then Writeln('Первая цифра числа четная')
else Writeln('Первая цифра числа нечетная')
end.
Тестовое решение:
Введите натуральное число-> 36434523
Первая цифра числа нечетная
function NOD(a, b: integer): integer;
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;
var
a, b, c: integer;
begin
Write('Введите через пробел три целых числа: '); Readln(a, b, c);
Writeln('НОД(a,b)+НОД(b,c)=', NOD(a, b) + NOD(b, c))
end.
Тестовое решение:
Введите через пробел три целых числа: 2048 512 4262
НОД(a,b)+НОД(b,c)=514
Выполним несколько первых шагов алгоритма:
2 "7", 82 "4"
4 "7", 78 "4"
Очевидно, что из 86 "4" получим в конце концов 42 "7" и 2 "4"
(42=84/4*2).
Следующий этап:
2 "4", 38 "7", 2 "4"
4 "4", 34 "7", 2 "4"
36 "7", 2 "4"
...
30 "7", 2 "4"
...
6 "7", 2 "4"
2 "4", 2 "7", 2 "4"
Таким образом, из 86 "4" получится строка "447744"
Создаешь большой прямоугольник (нужных размеров) через кнопку на верхней панели,делаешь серую заливку,сверху таким же способом делаешь 3 круга (там сначала создается квадрат,а ты в властивостях форми выбираешь circle)и делаешь заливку разных цветов.