Решить на pascalabc. нужно перемножить первый массив на второй и из получившегося массива вычесть третий массив , получившийся массив нужно записать в четвертый массив. примерно так: 1*2-3=4(цифры означают номер массива).
Самые первые современные компьютеры - к числу которых относится Марк-1 - были основаны на электромеханических переключателях, которые широко применялись тогда в технике телефонной связи. Когда переключатель открыт (слева), ток в цепи отсутствует. Но если на обмотку железного сердечника (справа) подать ток низкого напряжения (красный), то в сердечнике создается магнитное поле, притягивающее один конец вращающегося на шарнире рычажка; другой его конец в этот момент сжимает контакты: цепь замыкается и по ней начинает проходить электрический ток (зеленый). Разработка машины Марк-1 проходила на удивление гладко. Успешно пройдя первые испытания в начале 1943 г., она была затем перенесена в Гарвардский университет, где стала яблоком раздора между ее изобретателем и его шефом.
Следует заметить, что и Эйкен, и Уотсон, обладая немалым упрямством, любили делать все по-своему. Сначала они разошлись во мнениях относительно внешнего вида машины.Марк-1, достигавший в длину почти 17 м и в соту более 2,5 м, содержал около 750 тыс. деталей, соединенных проводами общей протяженностью около 800 км. Для инженера такая махина была поистине кошмарным сном. Эйкен хотел оставить внутренности машины открытыми, чтобы специалисты имели возможность видеть ее устройство. Уотсон же, которого, как всегда, больше беспокоила репутация фирмы IBM, настаивал, чтобы машину заключили в корпус из стекла и блестящей нержавеющей стали.
Уотсон вышел победителем в спорах по этому и другим вопросам, но, когда Марк-1 был «представлен» прессе в августе 1944 г., Эйкен взял реванш. Он вскользь упомянул о роли, которую сыграла в этом проекте корпорация IBM, а лично о Томасе Уотсоне вообще не сказал ни слова. Уотсон был в бешенстве. «Вы не смеете так пренебрежительно относиться к IBM! - кричал он Эйкену. - Для меня IBM значит не меньше, чем для вас, выпускников Гарварда, ваш университет!» Сын и преемник Уотсона Том Уотсон-младший говорил позже: «Имей Эйкен и отец под рукой пистолеты, они бы убили друг друга».
Program SandP; //Название программы var //Описание переменных x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника procedure RectSP(a,b: real; var S,P:real); //Процедура begin S := a * b; //Нахождение площади P := a + b; //Нахождение суммы end; begin //Начало основной части программы writeln('Введите стороны прямоугольника: '); //Диалог с пользователем readln(x,y); //Считывание сторон RectSP(x,y,S,P); //Вызов процедуры writeln('Площадь равна ',S); //Вывод площади writeln('Периметр равен ',P); //Вывод периметра end. //Конец программы
