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
#include <iostream>
#include <iomanip>
using namespace std;
int main() {
double xn, xk, dx;
cout << "xn = ";
cin >> xn;
cout << "xk = ";
cin >> xk;
cout << "dx = ";
cin >> dx;
int k = 0;
for (int x = xn; x < xk; x += dx ){
if (x < 3){
cout << setw(5) << x*x*x << " ";
k++;
if (k == 4){
cout << endl;
k = 0;
}
}else if (x >= 3){
cout << setw(5) <<x * x << " ";
k++;
if (k == 4){
cout << endl;
k = 0;
}
}
}
return 0;
}
uses crt; {Подключение внешнего модуля}
var {Описание переменных}
a:array [1..100] of integer;
n,i:integer;
begin
write('n='); {Вывод текста на экран}
read(n); {Чтение текста}
for i:=1 to 3 do
a[i]:=random(51); {Значение первых 3 элементов}
for i:=4 to n do
a[i]:=((a[i-1]+a[i-2]+a[i-3]) mod 10); {Значение остальных элементов}
writeln('Последовательность:'); {Вывод текста на экран}
for i:=1 to n do
write(a[i],' '); {Вывод последовательности на экран}
writeln; {Перевод указателя на следующую строку}
write('N-ный элемент: ',a[i]); {Вывод текста и элемента на экран}
end.
Всего таких слов будет 4^5 = 1024
Закодируем Л = 0, Н = 1, О = 2, С = 3
Т.е. можем сопоставить наши слова с числами записанными в четверичной системе. На 329 месте будет стоять число 328 (нумерация с 0) записанное в четверичной системе. Переведем 328 в четверичную и получим: 11020
Следовательно там записано ННЛОЛ