ДАМ МНОГО БАЛЛОВ!!!написать программу как в паскале к задачеЖ
вывести ряд фибоначи до n члена
Ответы на вопрос
Ответил Аноним
0
Ответ:
Объяснение:
Должно быть так:
program rows;
var
a,b,c,i,n: integer;
begin
write('n = ');
readln(n);
a := 0;
write(a,' ');
b := 1;
write(b,' ');
for i:=3 to n do begin
write(a+b,' ');
c := b;
b := a + b;
a := c
end;
readln
end.
Новые вопросы