Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
smellofcherry
01.08.2020 02:51 •
Информатика
Найти произведение: \frac{(k^{2} +3)( k^{2}+5)( k^{2} +7)**( k^{2}+103) }{(k-7)(k-10)(k-13)**(k-97)} [/tex]
Показать ответ
Ответ:
poma070205
10.08.2020 01:23
Var P,k:real;
i:integer;
Begin
P:=1;
Write('k = ');ReadLn(k);
For i:= 1 to 31 do
P:=P*(k-i*3-4);
P:=1/P;
k:=k*k;
For i:= 1 to 51 do
P:=P*(k+i*2+1);
WriteLn('P = ',P);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
vakfor
13.07.2022 01:40
Написать программный код по блок схеме надо...
asel07071
06.05.2022 01:45
Задание 1 Дана программа:PythonПаскальx = int(input ())y = int (input ())if y 30 or x 320 :print ( ДА )var x,y: integer;beginreadln (x) ;readln (y) :if (у 30) or (x 20)then...
KoKaina
21.10.2020 17:21
1. что отображается на левой панели проводника?...
АБН2014
13.01.2021 08:40
Определи режимы обновления оглавления. Выбери верный вариант ответа:Верных ответов: 2обновить целикомобновить заполнительобновить только номера страницобновить заголовки...
Глглолл
04.09.2020 16:22
Запишите исходное предложение на языке алгебры логики. Возможный выполнения задания: Если центральные углы равны, то и соответствующие им дуги равны, а соответствующие центральным...
alinika2007
29.07.2020 19:39
Найти сумму максимального и минимального элементов массива. нужно описать массив в delphi 7!...
FluffyFoxLove
13.07.2020 09:08
Найдите вес тела в спирте ( плотность спирта ), если вес тела в воздухе 0,05 кн, а объём тела 0,005 м3....
FTA72артем
13.07.2020 09:08
Вчём отличие портрета в музике от портрета в живописи...
archakova65
13.07.2020 09:08
Найдите наибольшее и наименьшее значение линейной функции 3x +y - 2 =0 на отрезке [-1; 1]...
nuk890
13.07.2020 09:08
Запишите в виде несократимой дроби 600/1075...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
Begin
P:=1;
Write('k = ');ReadLn(k);
For i:= 1 to 31 do
P:=P*(k-i*3-4);
P:=1/P;
k:=k*k;
For i:= 1 to 51 do
P:=P*(k+i*2+1);
WriteLn('P = ',P);
End.