Создание первого отечественного компьютера

Первый советский компьютер был создан под руководством сергея алексеевича лебедева (1902—1974). необходимость создания собственного эвм в  была осознана несколько позже, чем в  сша, так что соответствующие работы начались только с  осени 1948  года. инициаторами проекта выступили ученые-ядерщики  — в  те  годы буквально вся страна работала над атомным проектом, который курировал лично лаврентий берия. первым делом советские разработчики приступили к  разработке малой электронной счетной машины (мэсм). 1946 год - это не год создания самой эвм. в 1946 только определились с прниципиальной схемой блоков и компоновкой. сам компьютер сделали только в 1950. разработки шли в киеве, тогда не делили на и украинских ученых. они все были советские, частью из москвы, частью - киевляне (в частности, глушков).

Навскидку можно сделать так: вместо самих чисел хранить их разложения на простые множители. например, вместо n=84= будет массив na=(2, 1, 0, 1, 0, еще такой же массив отводишь под сами простые числа. после получения разложения n начинается цикл: берем очередное число i и из na вычитаем его разложение (пробегаемся по простым числам, если i делится, то делим и вычитаем 1 в соотв. элементе массива, пробуем снова). цикл заканчивается, когда все элементы na отрицательны или равны 0, это значит, что факториал последнего i содержит все простые числа в степени не меньшей чем n, т.е. i! делится на n. проблема в том, что непонятно, каких размеров должен быть массив. есть ли ограничения на n? например, если n всегда не больше 10000, то количество простых чисел и сами числа можно константами загнать и т.д. распиши условия, тогда попробую примерно код написать.

Var x,y,res : real; begin       {задаем значения х и у}       write('введите x и y через пробел: ');       readln(x,y);       {вычисляем значение выражения и присваиваем результат переменной res}       res : = 3*x*x*y*y - 2*x*y*y - 7*x*x*y - 4*y*y + 15*x*y + 2*x*x - 3*x + 10*y + 6;       {выводим результат на экран}       writeln('ответ: ',res: 6: 4);       readln; end.