![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 01.07.2014
Сообщений: 4
|
![]()
var
x, px, f, s: real; i, n: integer; begin WriteLn('Введите количество суммируемых членов: '); ReadLn(n); WriteLn('Введите x: '); ReadLn(x); x:=sqr(x); px:=1; f:=1; i:=2; s:=1; for n:=n downto 1 do begin px:=px*x; f:=f*(i-1)*(i); s:=s+px/f; i:=i*2; end; WriteLn('Сумма ',n,' членов ряда равна ',s); end. |
![]() |
![]() |
![]() |
#2 |
Санитар
Старожил
Регистрация: 04.10.2008
Сообщений: 2,577
|
![]() Код:
|
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод из Pascal в C++ | CryNet | Помощь студентам | 1 | 12.09.2013 21:42 |
перевод с pascal на с++ | Balthazar | Помощь студентам | 0 | 08.12.2010 18:50 |
Перевод из Pascal в С | Foxtrot_1 | Помощь студентам | 7 | 20.06.2009 19:00 |
Перевод кода из Pascal в Object Pascal | zemskov77 | Общие вопросы Delphi | 1 | 03.01.2009 09:37 |