Дано натуральное число n. Найти сумму S=1+1/3+3/5+5/7+...(n слагаемых написать код

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

9 кбатй = 73728 бит (кбайт=8192 бит)

73728/1536=48сек

512*48=24576бит=3072 байт ( 1 байт = 8 бит)

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.

var s,p: real;

i: integer;

begin

  p: =1;

  for i : = 1 to 14 do

      if i mod 2 = 0 then p: =p*i

      else s: =s+i;

  writeln(p,s);

end.