Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.