Увы, нет.
...var Y:array[1..N] of real... ошибка в написании, компилятор сообщит, что тип параметра не может быть описанием массива с границами. Пример:
var a:array [1..n] of real; Procedure ab(var b:array [1..n] of real);
К сожалению переменная и формальный параметр не одного типа.
Стоит использовать Type:
type ba= array [1..n] of real; var a: ba; Procedure ab(var b:ba);
Python 3.6
a = [int(i) for i in input().split()]
ab = abs(a[1] - a[2])
if ab > 180:
ab = 360 - ab
if ab % a[4] == 0:
x = ab // a[4]
else:
x = ab // a[4] + 1
if a[0] % a[3] == 0:
x += a[0] // a[3]
else:
x += a[0] // a[3] + 1
print(x)
PascalABC.NET 3.5.1
program who;
var a, b, ab, t: integer;
d, s, x: LongInt;
begin
read(d, a, b, s, t);
ab := abs(a - b);
if ab > 180 then
ab := 360 - ab;
if ab mod t = 0 then
x := ab div t
else
x := ab div t + 1;
if d mod s = 0 then
x := x + d div s
else
x := x + d div s + 1;
write(x);
end.
Объяснение:
Думаю по коду поймешь
using namespace std;
int d(int);
int main()
{
cout<<"enter...";
int i;
cin>>i;
cout<<d(i*2)<<endl;
system("pause");
return 0;
}
int d(int n)
{
if(n==2)
return 2;
else
return d(n)*d(n-2);
}