Перевести код из Java в Pascal:import java.util.*;public class Main static long[]
Перевести код из 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 lt;= n; i++)
for(j = 0; j lt; 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]);
1 ответ
Ульяна Трахова
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программка не работает, обновите версию!
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-gt;cat[n div 2]).Println;
end.
Пример
1 43 19 42 7
1 24466267020 4862 24466267020 5
// Внимание! Если программка не работает, обновите версию!
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-gt;cat[n div 2]).Println;
end.
Пример
1 43 19 42 7
1 24466267020 4862 24466267020 5
Саша Осадчикова
Я теснее сам додумался, спасибо, мне просто переменную надобно было с файлами связывать )
Юра Арпухин
assign(input, 'input.txt'); assign(output, 'output.txt'); reset(input); rewrite(output); readln(input, n); writeln(output, cat[n div 2]); close(input); close(output);
Семён Гнездюк
Как умею))
Алла Чиврагова
Учту, спасибо)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов