Const
x_max = 10;
x_min = -10;
x_step = 0.5;
var
x, y: real;
begin
x := x_min;
writeln('x':10, 'y':10);
repeat
writeln(x:10:2, (x - sin(x)):10:2);
x := x + x_step;
until x > x_max;
end.
Как то так...
16*x бит = 128 кбайт
16*x бит = 16 * 8 кбайт
16*x бит = 16 * 8 кбит
6*x/1024 кбит = 16 * 8 кбит
6*x/1024 = 16 * 8
x =16 * 1024
<span>x =16384</span>
Ну раз поскакаль, то так
l:=2*3.14*r;
Эта команда рассчитает длину окружности по радиусу.
Если нужна программа полностью - надо уточнять это в условии.
После выполнения цикла элементы массива будут равны:
4, 8, 12, 16, 20, 10, 8, 6, 4, 2
Наибольшее повторяющееся значение = 8