Ответ:
Несли тач бара нет, то никак, только. с помощью клавиатуры выбирать иконки на рабочем столе
Var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 2 * x;
s := a;
i := 0;
repeat
i := i + 1;
a := a * 4 * x * x / (2 * i - 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', Sinh(2*x):15:5);
x := x + h;
until x >= xk;
end.
Блез Паскаль - франция-паскалина,
Лейбниц - Германия - арифмометр
Беббидж-Англия-аналитическая машина,
Холлерит-США-табулятор
Var
a:array[1..100] of integer;
i,n,k,s:integer;
begin
write('Введите количество членов последовательности: ');
readln(n);
a[1]:=1;
a[2]:=1;
s:=0;
for i:=3 to n do
a[i]:=a[i-2]+a[i-1];
write('Последовательность Фибоначчи: ');
for i:=1 to n do begin
s:=s+a[i];
write(a[i], ' ');
end;
writeln;
write('Введите искомый член последовательности: ');
readln(k);
for i:=3 to k do
a[i]:=a[i-2]+a[i-1];
writeln(k, '-й член последовательности: ',a[i], ' ');
writeln('Сумма ',n,' первых членов последовательности: ',s);
end.