составьте программу вывода на экран n первых чисел Фибонаги (это числовая послед...

June 2022 1 29 Report

составьте программу вывода на экран n первых чисел Фибонаги (это числовая последовательность 1,1,2,3,5,8,23,...),которые вычисляются по правилу:а1=1,а2=1,а3=а2+а1,...,аn=аn-1+an-2(после -а- это индексы!!!)pascal ABC

Answers & Comments

freako Var i,n:integer;a,b:int64;beginread(n);a:=1; b:=1;if (n=1) then write(a)else if (n>=2) then write(a,', ',b);if (n>2) thenfor i:=1 to n-2 do beginb:=b+a;a:=b-a;write(', ',b);end;End.

0 votes Thanks 1

freako Здесь прога покороче, но с массивом.
Var i,n:integer;
a:array[1..100] of int64;
begin
read(n);
a[1]:=1; a[2]:=1;
if (n>2) then
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
for i:=1 to n do
write(a[i],', ');
End.

Answers & Comments

pomogite reshit dlya uchastiya v sportivnyh studencheskih sorevnovaniyah vydeleno 10

sozdajte massiv soderzhashij 15 razlichnyh simvolov otsortirujte ego po ubyvaniyu

dana matrica celyh chisel razmerom 5h3 opredelit maksimalnyj i mini malnyj el

dano naturalnoe chislo n vychislit summu cifr etogo chisla

dana matrica celyh chisel razmerom 5h3 opredelit maksimalnyj i mini malnyj

dana matrica celyh chisel razmerom 5h3 opredelit maksimalnyj i mini malnyj e

ochen nado semya reshila letom poehat otdohnut v krym ili na kavkaz no okonchat79ec9b66c71f2bdd899c5436609a3c75 33168

pomogite reshit izluchenie kakoj dliny poglotil atom vodoroda esli polnaya energiya

ochen nado semya reshila letom poehat otdohnut v krym ili na kavkaz no okonchat

dano naturalnoe chislo nopredelit skolko v chisle nulejpascal abc

рекомендуемые вопросы

Helpful Links

Helpful Social