Вывести цифры по одной на строку - Free Pascal

Формулировка задачи:

Помогите вывести цифры по одной в строке) Вот код:

                    Листинг программы
                
 
                        
                          
                    
var n,i:longint;
function F(n:longint):longint;
begin
  if(n=1) or (n=2) then F:=1;
  if n>2 then F:=F(n-2) + F(n-1);
end;
begin
     Readln(n);
       for i:=1 to n do  Write(F(i),' ');
     Writeln;
     Readln;
end.

Решение задачи: «Вывести цифры по одной на строку»

textual
                            Листинг программы 
                        
for i:=1 to n do  Writeln(F(i);

Оцени полезность:

10 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы