Первым изобретателем, механических счетных машин, стал гениальный француз Блез Паскаль. Сын сборщика налогов, Паскаль задумал построить вычислительное устройство, наблюдая бесконечные утомительные расчеты своего отца. В 1642 г., когда Паскалю было всего 19 лет, он начал работать над созданием суммирующей машины. Паскаль умер в возрасте 39 лет, но, несмотря на столь короткую жизнь, навечно вошел в историю как выдающийся математик, физик, писатель и философ. В его честь назван один из самых распространенных современных языков программирования.
Суммирующая машина Паскаля, «паскалина», представляла собой механическое устройство - ящик с многочисленными шестеренками. Всего приблизительно за десятилетие он построил более 50 различных вариантов машины. При работе на «паскалине» складываемые числа вводились путем соответствуюшего поворота наборных колесиков. Каждое колесико с нанесенными на него делениями от 0 до 9 соответствовало одному десятичному разряду числа - единицам, десяткам, сотням и т. д. Избыток над 9 колесико «переносило», совершая полный оборот и продвигая соседнее слева «старшее» колесико на 1 вперед. Другие операции выполнялись при помощи довольно неудобной процедуры повторных сложений.
===== PascalABC.NET =====
begin
var n := ReadInteger;
Println(n div 100 + n mod 10)
end.
Для пары целых ненулевых чисел (a,b) существует соотношение
НОК(a,b)*НОД(a,b)=a*b
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
function gcd(a,b:integer):integer;
// НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
function lcm(a,b:integer):=(a*b) div gcd(a,b); //НОК
begin
var a:=36;
var b:=54;
var c:=18;
var d:=15;
Writeln('НОК(',a,',',b,',',c,',',d,')=',
lcm(lcm(lcm(a,b),c),d))
end.
<u><em>Тестовое решение:</em></u>
НОК(36,54,18,15)=540
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
Управляющий объект алладин,объект управления лампа или ковер может быть;"крепкий мужик" автор шукшин.
