1-2
2-1
3-5
4-3
5-4
Цифры по порядку вместе с масками
Здесь всё можно сделать через копирование части слова и конкатенации (склеивания) частей, например, так:
program z;
var str:string;
begin
str:='ЦВЕТОВОДСТВО';
writeln(copy(str,1,4)); {копировать из строки, начиная с 1 символа, 4 буквы}
writeln(copy(str,5,4)); {копировать из строки, начиная с 5го символа, 4 буквы}
writeln(copy(str,8,1)+copy(str,3,2)+copy(str,9,4));
writeln(copy(str,6,3)+'А');
end.
Если я не ошибаюсь, это надо делать на компьютере
<span />
Программы-архиваторы используют <span>для уменьшения объемов файлов</span>
Можно, например, так (метод деления пополам):
const eps=10E-10;
function func(x:real):real;
begin
func:=ln(x)-1/x;
end;
var a,b,h,x,f1,f2: real;
begin
a:=0; h:=0.1;
a:=a+h;
f2:=func(a);
repeat
f1:=f2;
a:=a+h;
f2:=func(a);
until f1*f2<0;
b:=a; a:=a-h;
writeln('a = ',a,' b = ',b);
x:=(a+b)/2;
while abs(func(x))>eps do
begin
if func(a)*func(x)<0 then b:=x
else a:=x;
x:=(a+b)/2;
end;
writeln('x = ',x);
end.
Результат:
a = 1.7000000000000004E+000 b = 1.8000000000000005E+000
x = 1.7632228344678880E+000