Вывести цифры по одной на строку - 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);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д