برتر رایانه بهشهر

N  جمله از دنباله ی فیبو ناچی را در خروجی چاپ میکند N عدد را از ورودی گرفته

program test;

var

a ,b ,c ,i ,n : integer;

begin

write('enter a number:');

readln(n);

a:=1;

b:=0;

c:=a+b;

for i:=1 to n do

begin

write(c:10);

a:=b;

b:=c;

c:=a+b;

end;

readln

end.

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: