В 1623 году Вильгельм Шиккард придумал «Считающие часы» — первый арифмометр, умевший выполнять четыре арифметических действия. Считающими часами устройство было названо потому, что, как и в настоящих часах, работа механизма была основана на использовании звёздочек и шестерёнок. Это изобретение нашло практическое использование в руках друга Шиккарда, философа и астронома Иоганна Кеплера.
За этим последовали машины Блеза Паскаля («Паскалина», 1642 г.) и Готфрида Вильгельма Лейбница — арифмометр Лейбница.
Лейбниц также описал двоичную систему счисления — один из ключевых принципов построения всех современных компьютеров. Однако, вплоть до 1940-х многие последующие разработки (включая машины Чарльза Бэббиджа и даже ЭНИАК 1945 года) были основаны на более сложной в реализации десятичной системе.
В 1820 году Шарль Ксавье Тома де Кольмар создал первое серийно выпускавшееся механическое счётное устройство — арифмометр Томаса, который мог складывать, вычитать, умножать и делить. В основном, он был основан на работе Лейбница.
В 1845 году Израиль Штаффель представил счётную машину, которая кроме четырёх арифметических действий могла извлекать квадратные корни. Арифмометры, считающие десятичные числа, использовались до 1970-х.
Объяснение:
1.
var N: integer;
var s: string;
begin
write('Введите строку: ');
readln(s);
write('Введите N: ');
readln(N);
if (s.Length>N) then s:=s.Substring(0,N);
writeln('Результат: ',s);
end.
2.1 (С циклом For)
var s: string;
var c: char;
var i,n: integer;
begin
n:=0;
write('Введите строку: ');
readln(s);
write('Введите символ: ');
readln(c);
for i:=1 to s.Length do
if (s[i]=c) then n:=n+1;
writeln('Символ ',c,' встречается в тексте ',n,' раз');
end.
2.2 (С циклом Repeat)
var s: string;
var c: char;
var i,n: integer;
begin
n:=0;
i:=1;
write('Введите строку: ');
readln(s);
write('Введите символ: ');
readln(c);
Repeat begin
if (s[i]=c) then n:=n+1;
i:=i+1;
end;
until i=s.Length+1;
writeln('Символ ',c,' встречается в тексте ',n,' раз');
end.
1111101001_2=2^9+2^8+2^7+2^6+2^5+2^3+1=512+256+128+64+32+8+1=1001_10