18 lines
266 B
Plaintext
18 lines
266 B
Plaintext
/* Âû÷èñëåíèå N-ãî ÷èñëà Ôèáîíà÷÷è */
|
|
|
|
BEGIN
|
|
a := 1;
|
|
b := 1;
|
|
n := READ;
|
|
|
|
WHILE n > 1 DO
|
|
t := a;
|
|
a := b;
|
|
b := b + t;
|
|
n := n - 1
|
|
OD;
|
|
|
|
WRITE(a)
|
|
END
|
|
|