16 lines
397 B
ObjectPascal
16 lines
397 B
ObjectPascal
Uses unit_example;
|
||||
|
||||
const N: integer = 10;
|
||||
|
||||
begin
|
||||
println('Последовательность чисел Фибоначчи:');
|
||||
for var i := 1 to N do
|
||||
println('F(' + i + ')=', fibonacci(i));
|
||||
println();
|
||||
|
||||
println('Последовательность факториалов:');
|
||||
for var i := 1 to N do
|
||||
println(i + '!=', factorial(i));
|
||||
println();
|
||||
end.
|
