Var x,a,s:real; i,n:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0;
a:=-1;
for i:=1 to n do
begin
a:=-a*x;
s:=s+a/i;
end;
writeln('s = ',s);
end.
Пример:
x = 0.5
n = 4
s = 0.401041666666667
2 Мбайт
но могу ошибаться ((
12. графический редактор Gimp
офисный пакет OpenOffice
браузер Opera
4. хранить копию на DVD-диске
распространять измененную версию
исправлять явные ошибки
Информационные системы создаются под конкретную задачу. Пример для простой задачи печати визиток для небольшой фирмы в несколько сот человек. Работа с базой возможна как двойным щелчком по выделенной строке, так и кнопкой перехода. Защита без пароля. Защиту в рабочем режиме не снимайте, чтобы не повредить формулы связи с базой.
Var
a,b,p,i: integer;
begin
write ('Введите 2 числа: ');
readln (a,b);
p:=1;
for i:=a to b do
if (i*6) mod 10 =2
then p:=p*i;
writeln (p);
end.
--------------Результат---------------
Введите 2 числа: 1 10
14