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