Pascal:
var ar:array[1..13] of integer;
a:integer;
begin
ar[1]:=0;
ar[2]:=1;
ar[3]:=1;
for a:=4 to 13 do
ar[a]:=ar[a-1]+ar[a-2];
for a:=1 to 13 do
write(ar[a],',');
readln;
end.
C++:
#include
#include // для system
using namespace std;
int main()
{
int ar[12];
ar[1]=0;
ar[2]=1;
ar[3]=1;
for (int a=4;a<11;a++)<br>{
ar[a]=ar[a-1]+ar[a-2];
}
for (int b;b<11;b++)<br>{
cout << ar[b] << ",";<br>}
system("pause");
}