Паскаль

[Zeldan]

С клавиатуры вводится натуральное n меньше 50. Определить n-ное число Фибоначчи.
вот то, что у меня получилось! А как ограничить количество чисел до 50 ????

Program 1943;
var  i,n:integer;
function fib(n:integer):integer;
var a,b,c,i:integer;
begin
a:=1;b:=1;
if (n=1) or (n=2) then  fib:=1
else    begin
for i:=3 to n do 
begin
c:=a+b;
a:=b;  
b:=c; 
end;      
fib:=c;
end;     
end;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do write(fib(i),'   '); 
end.

[evg_m]

repeat
  write('Введите n<=50: ');
  readln(n);
until (n<=50);

[Aleksandr H.]

кажется вместо цикла

for i:=1 to n do write(fib(i),'   ');

надо просто написать

write(fib(n));

в цикле, за идеей, выведется весь ряд Фибоначчи [1..n]

[min@y™]

Мож хватит уже?
Не пора ли вытащить мамкину сиську изо рта и начать писать под виндовс и линукс?



Смотри, какая красота.

Слить на винт.