Var a:array [1..10] of integer;
i,n:integer;
begin
n:=0;
for i:=1 to 10 do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
n:=n+a[i];
end;
WRITELN;
write ('Сумма элементов в массиве = ',n);
end.
Всего возможных вариантов N=16.
Подставим это в формулу
Таким образом, 4 бит информации несет сообщение
Const pi=3.141593;
<span>var R,R1,H,V: real;
</span><span>begin
</span><span> write('радиус нижнего основания R: '); readln(R);
</span><span> write('радиус верхнего основания R1: '); readln(R1);
</span><span> write('высота конуса H: '); readln(H);
</span><span> V:=H*pi*(R*R+R*R1+R1*R1)/3;
</span><span> writeln('объем конуса V = ',V:7:3);
</span><span>end.
</span>радиус нижнего основания R: 10
<span>радиус верхнего основания R1: 15
</span><span>высота конуса H: 8
</span><span>объем конуса V = 3979.351
</span>
Var
n : integer;
begin
read (n);
while n > 0 do
begin
write (n, ' ');
n := n - 1;
end;
end.
Https://support.microsoft.com/ru-ru/help/17073/windows-using-keyboard