Код рабочий, проверял на PascalABC
uses GraphABC;
var m: integer; arr: array [1..10] of integer;
begin
for var i := 1 to 10 do
begin
arr[i] := Random(120,200);
end;
m := Max(arr[1], Max(arr[2], Max(arr[3], Max(arr[4], Max(arr[5], Max(arr[6], Max(arr[7], Max(arr[8], Max(arr[9], arr[10])))))))));
println(m);
end.
Зашифрованное слово - криптоанализ
При шифровании не использовался рисунок справа. Это так называемый масонский шифр. Чтобы расшифровать, нужно символ как бы подставить в рисунок. Например, 1 символ показывает, что слева, сверху и снизу от него есть перегородка. В сетке нам подходит две буквы - Й, К. Точка указывает, что буква нужна вторая, а именно К. Возьмем 5 символ. В сетку он не подходит, а подходит в рисунок посередине, перекрестие, и именно вверх. Это буквы С, Т. Точка указывает на букву Т. Отсутствие точки означает, что берется первая буква
64/8=8 деталей дополнительно
64+8=72 всего деталей можно изготовить
Через Case :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Case k mod 10 of
1:WriteLn('В букете ',k,' цветок');
2..4:WriteLn('В букете ',k,' цветка');
0,5..9:WriteLn('В букете ',k,' цветков');
end
End.
Через if :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Begin
if k=1 then WriteLn('В букете ',k,' цветок');
if k mod 10 in[2..4] then WriteLn('В букете ',k,' цветка');
if (k mod 10 in[5..9])or(k=0) then WriteLn('В букете ',k,' цветков');
end
End.
V = v * t, где
V - объем.
v - скорость передачи данных.
t - время.
V = K * I, где
K - размер изображения.
I - количество бит на символ.
N = 2^i, где
N - количество цветов в палитре.
K = n * x * y, где
n - количество страниц.
x - количество строк.
y - количество символов в строке.
13. Дано:
v = 128000 бит/с.
V = 1,5 мбайт.
Найти: t.
V = v * t.
t = V/v = (1,5 * 2^23) / 128000 = (1,5 * 2^23) / (2^7 * 1000) = (1,5 * 2^16) / 1000 = (1,5 * 65536) / 1000 = 98,304 с. ~ 1,6 минут.
14. Дано:
K = 64 * 64.
V = 512 байт.
Найти: N.
V = K * I.
I = V/K = (512 * 8) / (64 * 64) = (2^9 * 2^3) / (2^6 * 2^6) = 2^12 / 2^12 = 1 бит.
N = 2^i.
N = 2^1.
N = 2 цвета.
Ответ: 2 цвета.
15. Дано:
V = 10 кбайт.
n = 8 страниц.
x = 32 строки.
y = 40 символов.
Найти: N.
K = n * x * y.
K = 8 * 32 * 40 = 10240 символов всего.
V = K * I.
I = V/K = (10 * 2^13) / 10240 = 2^13 / 1024 = 2^13 / 2^10 = 2^3 = 8 бит.
N = 2^i.
N = 2^8.
N = 256 символов.
Ответ: 256 символов.