Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
LastRider
0 / 0 / 0
Регистрация: 15.10.2015
Сообщений: 14
1

Найти произведение

21.12.2015, 14:38. Просмотров 142. Ответов 4
Метки нет (Все метки)

http://www.cyberforum.ru/cgi-bin/latex.cgi?y=\prod_{k=1}^{9}(2+\frac{x}{k})
k нужно вводить с клавиатуры
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2015, 14:38
Ответы с готовыми решениями:

Найти произведение
Необходимо посчитать произведение p, значение X вводить с клавиатуры...

Найти произведение N!=1*2*.*N(N факториал)
Решить С for!, C while!, C repeat! Дано целое число N(>0). Найти произведение...

Найти произведение в массиве
Добрый день, уважаемые программисты. Помогите составить программу. Дан...

Найти произведение ряда
Здравствуйте! Как вычислить в паскале следующее выражение: T=\frac{5}{3+\ln...

Найти произведение длин АВ и АС
Даны три точки А, В, С на числовой оси. Точка А расположена между точками С и...

4
Joy
Эксперт Pascal/Delphi
2170 / 1198 / 1437
Регистрация: 29.08.2014
Сообщений: 4,388
21.12.2015, 17:08 2
Цитата Сообщение от LastRider Посмотреть сообщение
k нужно вводить с клавиатуры
может x?
0
LastRider
0 / 0 / 0
Регистрация: 15.10.2015
Сообщений: 14
21.12.2015, 19:29  [ТС] 3
да,простите
0
JuriiMW
1999 / 1083 / 1574
Регистрация: 10.12.2014
Сообщений: 4,073
22.12.2015, 05:48 4
Pascal
1
2
3
4
begin
  var x := ReadLnReal('x =');
  WriteLn('y = ', (2+x)*(2+x/2)*(2+x/3)*(2+x/4)*(2+x/5)*(2+x/6)*(2+x/7)*(2+x/8)*(2+x/9));
end.
0
Joy
Эксперт Pascal/Delphi
2170 / 1198 / 1437
Регистрация: 29.08.2014
Сообщений: 4,388
22.12.2015, 05:55 5
Pascal
1
2
3
4
5
6
var
  x:real;
begin
  x := ReadLnReal('x =');
  writeln('Y=',Range(1,9).Select(k->2+x/k).Aggregate((z,y:real)->z*y));
end.
0
22.12.2015, 05:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2015, 05:55

Найти разность и произведение матриц
помогите пожалуйста... Дано: матрици R,S,T найти (-3R)-T*S зарание спасибо

Найти произведение модулей чисел
Найти произведение модулей чисел от a до b (a и b вводятся с клавиатуры).

Найти произведение членов ряда
program abc; uses crt; var N,k:integer; P,F,x:real; begin writeln;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru