4 года назад

В паскале помогите решить пожалуйста

Знания

Информатика

2 ответа:

Astral16 [17]4 года назад

0 0

X=X-(sqr(x)*x/3*2)+(sqr(x)*sqr(x)*x/5*4*3*2)-(sqr(x)*sqr(x)*sqr(x)*x/7*6*5*4*3*2)+(sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/9*8*7*6*5*4*3*2)-(sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/11*10*9*8*7*6*5*4*3*2)+(sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*x/13*12*11*10*9*8*7*6*5*4*3*2)

Alion S4 года назад

0 0

Var f: real; x :integer;
begin //Ввод writeln ('введите x'); readln (x);
//решение
f:= x-(Power(x,3)/6)+(Power(x,5)/120)-(Power(x,7)/5040)+(Power(x,9)/362880)-(Power(x,11)/39916800)+(Power(x,13)/6227020800); {f:=Power(x,2);} //вывод writeln ('f = ', f); end.

Читайте также

Компьютером управляет система которая называется

Lomhe [50]

Компьютером управляет операционная система состоящая из набора различных программ при помощи различных команд. Если имеется ввиду удаленное управление компьютером, то разные программы бывают.

0 0

4 года назад

sqrt2+sqrt2....+sqrt2 N- корнейпоэтому условию помогите составить программу в паскаль пожалуйста

Оксана Агейкина [198]

var
n:real;
begin
readln (n);
n:=n*sqrt (2);
writeln (n);
end.

0 0

4 года назад

Помогите написать программу которая по данному натуральному числу от 1 до 2 (номеру месяца) выдает все приходящихся на этот меся

Вячеслав 720

Var
n: integer;

begin
write('Введите номер месяца (1-12): ');
readln(n);
case n of
    1: writeln('1 января - Новый год; 7 января - Рождество Христово');
    2: writeln('23 февраля - День защитника Отечества');
    3: writeln('8 марта - Международный женский день');
    5:
      begin
        writeln('1 мая - Праздник Весны и Труда;');
        writeln('9 мая - День победы советского народа в Великой Отечественной войне 1941-19545 годов')
      end;
    6: writeln('12 июня - День России');
    11: writeln('4 ноября - День народного единства')
end
end.

Тестовое решение:

Введите номер месяца (1-12): 6
12 июня - День России

0 0

4 года назад

Какой инструмент в векторном редакторе позволяет несколько объектов сделать единым целым

Lord89 [50]

"Слияние слоев" -photoshop
"Закрепить слои" -corel

0 0

4 года назад

Пожалуйста помогите. На языке Pascal сформировать массив из 5 целых чисел, выбранных случайным образом от 0 до 50

Владимир9111 [324]

Const
n = 5;
var
a: array [0..n-1] of shortint;
i: byte;
begin
randomize;
writeln ('Сформированный массив: ');
for i:=0 to n-1 do
begin
a[i]:=random (51);
write (a[i], '; ');
end;
end.

0 0

4 года назад