Вывести цифры по одной на строку - 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);