<span>относят учебные видеофильмы и звукозаписи, для воспроизведения которых достаточно бытового магнитофона или CD-плеера.</span>
Var
a: array[1..10]of integer;
i, k, n: integer;
begin
Writeln('Исходный массив:');
Randomize;
for i := 1 to 10 do
begin
a[i] := Random(51) - 25;
Write(a[i], ' ');
end;
Writeln;
n := 0;
k := 0;
for i := 10 downto 1 do
if a[i] > 0 then
begin
k := k + 1;
if k = 2 then n := i;
end;
if k = 0 then
Writeln('В массиве нет положительных элементов!')
else
Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
Readln;
end.
bin(51) = 0b110011
То есть 110011, дополняет незначащими нулями и получаем
00110011
2
var r,h:integer;
s,v:real;
begin
s=3.14*r*r;
v=s*h;
writeln(s,' ',v);
end.
1 что за площадь основание у треугольника? и объем гипотенузы?
Program n1;
var x,y: real;
begin
readln(x);
if x>10 then y:=x*x*x+3
else y:=-5;
writeln(y);
end.