Задача Pascal
Ребят, извините что сюда, но знаю что есть профи, которые дадут дельный совет... Вообщем задача паскаль, выручайте, горит...
Задача: "cоnst n=1000.var s: pacced array [1..n] of char. вывести те элементы массива s, индексы которых являются числами Фибоначчи(1,2,3,5,8..).описать процедуру."
Наброски:
cоnst n=1000;
type Myarray=array [1..n] of char;
procedure swap(s: Myarray);
var a1,a0,f:integer;
begin
f:=1;a1:=1; a0:=1;
while f<=1000 do
begin
write(a[f],' ');
f:=a1+a0;
a0:=a1;
a1:=f
end
end;
Главное описать процедуру...
Подскажите что неправильно, буду очень благодарен.
|