Привет, решите пожалуйста задачу в pascal abc
10-11 класс
|
Смотрим фотку!
Спасибо заранее!
s := 0;
ch := 1;
zn := 1;
for i := 1 to n do
begin
t := ch / zn;
if (odd(i)) then t := -t;
s := s+t;
ch := ch * x * x;
zn := zn * (2*i)*(2*i+1);
end;
Другие вопросы из категории
Найдите любое трёхзначное число, кратное заданному P и не равное ему.
1) Найти количество отрицательных элементов в массиве А [3,8].
2) Заполнит и вывести массив Р [6,7], запросить номер строки и вывести её на экран.
3) Заполнить и вывести массив Р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив.
4) В квадратной матрице А [10,10] заменить элементы главной диагонали на 0.
Всё нужно очень срочно
Читайте также
2 Найти сумму чисел от 3,5,7,9,11. .. и т.д.
файл каждая строка которого выглядет так: табельный номер,фио,оклад.
ввести в файл данные о 5-ти работниках и вывести в другой файл максимальный оклад
Найти минимальный среди максимальных элементов каждого из столбцов матриц С(5,10) и D(10,20). Задачу решить с использованием подпрограммы.
а первом фото 4 с процедурой, 8 с функцией.
На втором фото 8 с рекурсивной процедурой.