Записати формулу яку необхідно вести в клітинку а2 щоб у ній вивелося значення на 4 менше ніж в а1

Первая ЭВМ — универсальная машина на электронных лампах построена в США в 1945 году.Эта машина называлась ENIAC (расшифровывается так: электронный цифровой интегратор и вычислитель). Конструкторами ENIAC были Дж.Моучли и Дж.Эккерт.

Скорость счета этой машины превосходила скорость релейных машин того времени в тысячу раз.

Первый электронный компьютер ENIAC программировался с штеккерно-коммутационного то есть программа строилась путем соединения проводниками отдельных блоков машины на коммутационной доске.

Эта сложная и утомительная процедура подготовки машины к работе делала ее неудобной в эксплуатации.

Основные идеи, по которым долгие годы развивалась вычислительная техника, были разработаны крупнейшим американским математиком Джоном фон Нейманом

В 1946 году в журнале «Nature» вышла статья Дж. фон Неймана, Г. Голдстайна и А. Беркса «Предварительное рассмотрение логической конструкции электронного вычислительного устройства».

В этой статье были изложены принципы устройства и работы ЭВМ. Главный из них — принцип хранимой в памяти программы, согласно которому данные и программа помещаются в общую память машины.

Принципиальное описание устройства и работы компьютера принято называть архитектурой ЭВМ. Идеи, изложенные в упомянутой выше статье, получили название «архитектура ЭВМ Дж. фон Неймана».

В 1949 году была построена первая ЭВМ с архитектурой Неймана — английская машина EDSAC.

Годом позже появилась американская ЭВМ EDVAC. Названные машины существовали в единственных экземплярах. Серийное производство ЭВМ началось в развитых странах мира в 50-х годах.

В нашей стране первая ЭВМ была создана в 1951 году. Называлась она МЭСМ — малая электронная счетная машина. Конструктором МЭСМ был Сергей Алексеевич Лебедев.

Program lab;uses crt;
vari,a: integer;M: array [1 .. 30] of integer;
begin    clrscr; // Очистка экрана    randomize; // инициализирует рандом    a:=0; // инициализирует аккумулятор    for i:=1 to 30 do        M[i] := random(1000); // заполняет массив рандомными числами    for i:=1 to 30 do        if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен 0...            a := a + M[i]; // то добавить число к сумме    // если аккумулятор больше 0, то вывести вывести его значение    if a>0 then writeln('a = ',a)    // иначе вывести "чисел нет"    else writeln('чисел нет');end.