1) В старом стиле Паскаля (тут используется тип uint64, а он достаточен только до n=93):
var
n, i: Integer;
a, b, c: uint64;
begin
Writeln('Печать n первых членов последовательности Фибоначчи');
Write('Введите n: ');
Read(n);
a := 1;
b := 1;
for i := 1 to n do
begin
writeln('n=', i, ' ', a);
c := a + b;
a := b;
b := c;
end;
end.
2) Используя возможности PascalABC.NET (тут уже есть тип BigInteger -неограниченное цело число):
var a, b: BigInteger;
begin
Writeln('Печать n первых членов последовательности Фибоначчи');
var n := ReadInteger('Введите n:');
(a, b) := (1, 1);
for var i := 1 to n do
begin
writeln('n=', i, ' ', a);
(a, b) := (b, a + b);
end;
end.
java
import java.util.random;
public class myapp{
public static void main (string {
random rand = new random();
int n = rand.nextint(50);
int [] arr = new int[n];
for(int i = 0; i < n; i++) {
int j = rand.nextint(50);
arr[i] = j;
}
for( int i = 0; i < n; i++) {
if ( arr[i] % 2 == 0 ) {
system.out.print(arr[i] + " ");
}
}
}
}
pascal
program myapp;
var
i, n , j: integer;
arr: array of integer;
begin
randomize;
n : = random(50);
setlength(arr, n);
for i: = 0 to n do
begin
j: = random(50);
arr[i]: = j;
end;
for i: = 0 to n do
begin
if( arr[i] mod 2 = 0 ) then
begin
write(arr[i], ' ');
end;
end;
end.
