Создать программу которая высчитывает сумму...

@LeDep · Регистрация: 12.02.2011

Author24 — интернет-сервис помощи студентам

помогите

@LeDep · 10.06.2011, 14:46 **[ТС]**

подскажите к завтра нужно

go · 10.06.2011, 14:58

Pascal

uses
    crt;
var
  e:integer;
 
function s (e:integer):integer;
begin
 if e=1 then
    s:=-4
        else
    if e=2 then
       s:=1
           else
       s:=4*s(e-1)-2*s(e-2);
end;
 
begin
Clrscr ;
write ('Vvedite n: '); readln (e);
 
writeln ('a(n)= ',s(e));
 
readkey
end.

Добавлено через 52 секунды

Сообщение от LeDep

подскажите

написал, вычисляется аналогично числам фибоначи

@LeDep 74 / 74 / 44 Регистрация: 12.02.2011 Сообщений: 380
		1
	Создать программу которая высчитывает сумму... 09.06.2011, 21:34. Показов 988. Ответов 2 Метки нет (Все метки) помогите Миниатюры 0

@LeDep 74 / 74 / 44 Регистрация: 12.02.2011 Сообщений: 380
	10.06.2011, 14:46 [ТС]	2
	подскажите к завтра нужно 0

	10.06.2011, 14:58

Опции темы

Создать программу которая высчитывает сумму...

Решение