Var
i, //номер члена последовательности
n: integer; //длина последовательности
a: double; //заданное число
Begin
//--------------------------------------Ввод данных----------------------------------------------------
write('Введите длину последовательности: ');
read(n);
write('Введите a: ');
read(a);
//-----------------------------Вывод последовательности-------------------------------------------
i:=2;
write('Последовательность: ',1);
while i <= n do begin
write(' ',1+1/i:0:4); //4 - количество цифр после запятой, если нужна
большая точность можно увеличить это число
i:=i+1;
end;
writeln();
//------------------------------Вывод требуемых чисел----------------------------------------------
write('Числа меньше а: ');
i:=2;
if a > 1 then write(1);
while i <= n do begin
if 1+1/i < a then write(' ',1+1/i:0:4); //если i-й член последовательности < a,
то печатаем это число
i:=i+1; //переходим к следующему числу в последовательности
end;
End.
Var i,n,x:integer;
a:array[1..100]of integer;
begin
redln(n,x);
for i:= 1 to n do
a[i]:=x+i-1;
//дальнейшие операции с массивом
end.
134=1*8^2+3*8+4*8^0=64+24+1=89;
2АВ=1010101011=1*2^9+1*2^7+1*2^5+1*2^3+1*2^1+1*2^0=512+128+8+2+1=651;
1011111=1*2^6+1*2^4+1*2^3+1*2^2+1*2^1+1*2^0=64+16+8+4+2+1=95;
356=3*7^2+5*7^1+6*7^0=147+35+1=183
Если так подумать, то папка - это ярлык, который вмещает в себе различные файлы или ярлыки. А каталог - это список определенных отсортированных файлов или ярлыков, в магазине - отсортированный список продукции.
Type
mas=array[,]of integer;
var
i,n:integer;
a:mas;
b:array[1..4]of integer;
begin
write('Сколько точек: ');
readln(n);
setlength(a,3,n+1);
for i:=1 to n do
begin
write('Введите координаты точки: ');
readln(a[1,i],a[2,i]);
end;
for i:=1 to n do
begin
if a[2,i]=0 then
begin
if b[1]=0 then b[1]:=i else if a[1,i]<a[1,b[1]] then b[1]:=i;
if b[2]=0 then b[2]:=i else if a[1,i]>a[1,b[2]] then b[2]:=i;
end;
if a[2,i]>0 then
if b[3]=0 then b[3]:=i else if a[2,i]>a[2,b[3]] then b[3]:=i;
if a[2,i]<0 then
if b[4]=0 then b[4]:=i else if a[2,i]<a[2,b[4]] then b[4]:=i;
end;
writeln('Координаты вершин четырехугольника с наибольшей площадью:');
for i:=1 to 4 do write('(',a[1,b[i]],';',a[2,b[i]],') ')
end.<span>
</span>
