Предмет: Информатика,
автор: aynkova
Надо вывести n первых чисел Фибоначчи
Ответы
Автор ответа:
0
begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
Похожие вопросы
Предмет: Русский язык,
автор: uzkenbaevalazat
Предмет: Информатика,
автор: stepankaleev2007
Предмет: Математика,
автор: shkonderovaevgenia
Предмет: Физика,
автор: Viktoria2332
Предмет: Математика,
автор: wwwkarina30