Перевести код из Java в Pascal:import java.util.;public class Main{static long[] countPerfect(int n){int i, j;long cat[]= new long[51];cat[0] = cat[1] = 1;for(i = 2; i <= n; i++)for(j = 0; j < i; j++)cat[i] += cat[j] cat[i - j - 1];return cat;}public static void main(String[] args){long cat[] = countPerfect(50);Scanner con = new Scanner(System.in);while(con.hasNext()){int n = con.nextInt();System.out.println(cat[n/2]);}}}

Question

Информатика

Taedzhat

4 год назад

Перевести код из Java в Pascal:import java.util.;public class Main{static long[] countPerfect(int n){int i, j;long cat[]= new long[51];cat[0] = cat[1] = 1;for(i = 2; i <= n; i++)for(j = 0; j < i; j++)cat[i] += cat[j] cat[i - j - 1];return cat;}public static void main(String[] args){long cat[] = countPerfect(50);Scanner con = new Scanner(System.in);while(con.hasNext()){int n = con.nextInt();System.out.println(cat[n/2]);}}}

ОТВЕТЫ

Матвей

Oct 24, 2020

function countPerfect(n:integer):array of BigInteger;
begin
var cat:=new BigInteger[51];
(cat[0],cat[1]):=(1,1);
for var i:=2 to n do
for var j:=0 to i-1 do
cat[i]+=cat[j]*cat[i-j-1];
Result:=cat
end;

begin
var cat:=countPerfect(50);
ReadlnString.ToIntegers.Select(n->cat[n div 2]).Println;
end.

1 43 19 42 7
1 24466267020 4862 24466267020 5

871