Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000​

произведения чисел от 1 до 45

Объяснение:

1+2+3+4+5+6+7+8+9+10+11

+12+13+14+15+16+17+18

+19+20+21+22+23+24+25

+26+27+28+29+30+31+32

+33+34+35+36+37+38+39

+40+41+42+43+44+45=1035

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

решение для 4-байтного представления

запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой

0,110010001*10^1000

10- основание (2дес=10дв)

1000-порядок(8дес=1000дв)

определим машинный порядок:

мп = 1000 + 1000000 = 1001000

запишем число

01001000 0000000 00000001 10010001

порядок          ман                тис                  са