Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
19.05.2011, 23:53   #1
Rikihers1
Новичок
Регистрация: 15.05.2011
Сообщений: 11
Репутация: 0 (0)
Факториалы / Pascal (Паскаль)

Вычислить у=1!+2!+3!+...+п!
п = const
19.05.2011, 23:53
AdAgent
Объявления
19.05.2011, 23:58   #2
lamed
Форумчанин
Регистрация: 07.05.2011
Сообщений: 590
Репутация: 296 (296)
Лучшие ответы: 3
Факториалы / Pascal (Паскаль)

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ Вычислить у=1!+2!+3!+...+п! }
var
  i, n: integer;
  y, u: longint;
begin
  readln(n);
  u:=1;
  y:= 0;
  for i:= 1 to n do
    begin
      u:=u*i;
      y:= y+u;
    end;
  writeln('y=',y);
  readln;
end.
Другие темы раздела
Pascal Вычислить значение многочлена a0x^n+a1x^n-1+...+an-1x+an и его производной в точке x = 0.5.
Даннo натуральное число n и, действительные числа x, a0, a1, ..., an. Вычислить значение многочлена a0x^n+a1x^n-1+...+an-1x+an и его производной в точке x = 0.5. ^2- ето типа в степени два.)
Zadacha цыклы Pascal
S=sqrt(3+sqrt(6+...+sqrt(3(n-1+sqrt)))) n- натуральное число
19.05.2011, 23:58
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal: факториалы
решить факториалы
Turbo Pascal Dimka1judo 17.01.2012 18:15
C++: Факториалы
http://acm.timus.ru/problem.aspx?space=1&num=1083 помогите решить эту задачу у меня мысль есть, но похоже неправильная. #include "iostream" using namespace std; int main() {
С++ для начинающих NeRRouZ 12.04.2011 17:58
Turbo Pascal: Факториалы.
Привет всем! Помогите довести до ума задачу. Вот что то попробовал написать...(само задание на фото) uses crt; var a,k,l,n,p,p1,p2,p3,s,x:integer; begin for k:= 1 to n do begin p:=p*k; a:=k+3; if k mod 2 = 0 then begin p1:= p1*k; p3:= p1-x*p; l:= a/(x*p)+p1/p3;
Turbo Pascal fastkiller 07.02.2011 19:39
C++: Факториалы...
Приветствую. Если напишу, что нужна помощь в решении задачи - сурово вас обману. Помощь не нужна - нужно решение. Язык - Си, среда Dev-C++ Написать функцию для вычисления значения Вычислить с ее помощью значения S(n) для n от 12 до 24 с шагом 4 Добавлено через 21 час 8 минут Благодаря...
С++ для начинающих dimaki 26.12.2010 20:57
Опции темы

Текущее время: 10:44. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.