Основными мотивами туризма являются: 1) отдых, досуг, развлечения; 2) стремление к познанию; 3) спорт; 4) лечение; 5) паломничество
sonyavolkova26
2
17.04.2019 00:20
3
Другие вопросы по теме Другие предметы
Sonechka20052005
12.11.2020 20:36
Makk2004
12.11.2020 20:36
kristina05081999
12.11.2020 20:35
MrReizer
04.12.2021 09:26
dimazhulin1609
04.12.2021 09:26
leafpool1
04.12.2021 09:04
mrfenics
25.02.2020 12:47
denchannelgaming
25.02.2020 12:32
Популярные вопросы
- Составить текст,в котором содержится деловое предложение о сотрудничестве.используйте...
3 - Составьте программу которая выводит на экран пример на умножение...
1 - Write the opposites. 1) comfortable 2)interesting 3) downstairs...
3 - Морфологический разбор глагола припомится...
1 - Крольчонок весит 405 г. за лето его масса увеличелась в 9 раз....
3 - Акто появился раньше археоптериксы динозавры или стрекозы?...
2 - Проспрягать слова: гулять, думать, видеть, стелить....
2 - Найдите слово без мягких согласных звуков! 1) метель 2) листик...
1 - Решите . кг. яблок дешевле кг.груш на 30 руб.но 3 кг. яблок стоят...
2 - Как провести серединый перпендикуляр в тупоугольном треугольнике...
2
// №1 а)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R:real;
begin
r := 0;
write('n = '); readln(n);
for i := 1 to n do
begin
r := r + Pow(-1, i mod 2) * (i + 1) / Fact(i);
end;
writeln('R = ', r);
end.
// №1 б)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Summ(n:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 2 to n do
rez := rez + 1/i;
Summ := rez;
end;
var
n, i:integer;
R:real;
begin
r := 0;
write('n = '); readln(n);
for i := 1 to n do
begin
r := r + Fact(i)/Summ(i);
end;
writeln('R = ', r);
end.
// №2 а)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a:real; x:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R, x:real;
begin
r := 0;
write('n = '); readln(n);
write('x = '); readln(x);
for i := 1 to n do
begin
r := r + Pow(x, i) / Fact(i);
end;
writeln('R = ', r);
end.
// №2 б)
function Pow(a:real; x:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R, x:real;
begin
r := 1;
write('n = '); readln(n);
write('x = '); readln(x);
for i := 1 to n do
begin
r := r * (i / (i + 1) - Pow(cos(x), i)) ;
end;
writeln('R = ', r);
end.