1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('skolko elementov?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=n downto 1 do
write(a[i]:3);
end.
Смотри, дружок, это делается вот так вот.
1) 3072
2) 13
Объем шара
, объем куба
. Необходимо сравнить объёмы двух сосудов.
Код (PascalABC.NET 3.2):
begin
var A := ReadReal('Введите сторону куба:');
var r := ReadReal('Введите радиус шара:');
A := A * A * A;
r := 4 * pi / 3 * r * r * r;
if A > r then print('В шарообразном сосуде на', A - r, 'воды больше')
else if r > A then print('В прямоугольном сосуде на', r - A, 'воды больше')
else print('В сосудах одинаковое количество воды');
end.
V(а) = v * t * i, где v - дискретизация, t - время, i - глубина (аудиофайл)
I = M * I, где M - количество пикселей(X*Y), i - глубина цвета(фото)
N = 2^i, где N - мощность алфавита, i - кол-во бит.
V(в) = M * t * v * i / k + V(а), где количество пикселей(X*Y), i - глубина цвета(фото), t - время, v - частота кадров
<span>Загрузчик операционной системы
</span>