Реализовать следующее математическое выражение:
(x+y)/a*b/xy
на паскале

1 бит на 1 символ, поэтому:

14400*10=144000 символов 

336600*10=3366000 символов 

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.