Показать сообщение отдельно
Старый 16.06.2010, 17:18   #2 (permalink)
NDV
Member
 
Аватар для NDV
 
Регистрация: 13.06.2010
Сообщений: 55
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 40
По умолчанию

Код:
var a: array [1..20] of integer;
i: integer;
begin
a[1]:=1;
a[2]:=1;
writeln(a[1]);
writeln(a[2]);
for i:=3 to 20 do
begin
a[i]:=a[i-1]+a[i-2];
write(a[i]);
end;
readln
end.
Где-то так...
NDV вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070