Переведите числа из десятичной системы счисления в факториальную : 91
67
84
50
69

1) o+1=1;   2) 1 * 2= 2; 3) 2 + 1 = 3; 4) 3 * 2 =6; 5) 6 * 2 = 12; 5) 12 * 2 = 24; 7) 24 + 1 = 25; 8) 25 * 2 = 50.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.

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.