Repeat вывести n чисел Фибоначчи

@akchibash · Регистрация: 04.06.2013

Author24 — интернет-сервис помощи студентам

написать программу которая выводит n чисел фибоначи с условием цикла рипид

@Luckycat · 16.06.2013, 14:08

Pascal

uses crt;
     var i,n:integer;
         f:array[1..100]of integer;
begin
clrscr;
write('Enter n: ');
read(n);
f[1]:=1;
f[2]:=2;
i:=1;
repeat
if i<3 then
   begin
    writeln(i);
   end
   else
   begin
    f[i]:=f[i-2]+f[i-1];
   writeln(f[i]);
 end;
    inc(i);
until i>n;
readkey;
end.

@akchibash 0 / 0 / 0 Регистрация: 04.06.2013 Сообщений: 6
		1
	Repeat вывести n чисел Фибоначчи 16.06.2013, 12:24. Показов 4336. Ответов 1 Метки нет (Все метки) написать программу которая выводит n чисел фибоначи с условием цикла рипид 0

	16.06.2013, 14:08

Опции темы

Repeat вывести n чисел Фибоначчи

Решение