<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='1 января 2004 года';
s.MatchValues('\d+').Select(w->w.ToInteger).Sum.Println;
end.
<u>Результат</u>
2005
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
IF c = 0 THEN
IF b = 0 THEN
PRINT "x=0"
ELSE
x1 = 0: x2 = -b / a
PRINT "x1="; x1, "x2="; x2
END IF
ELSE
IF b = 0 THEN
x1 = -c / a: x2 = -x1
PRINT "x1="; x1, "x2="; x2
ELSE
D = b ^ 2 - 4 * a * c
IF D < 0 THEN
PRINT "Нет действительных корней"
ELSE
IF D = 0 THEN
x = -b / (2 * a)
PRINT "x="; x
ELSE
D = SQR(D)
x1 = (-b - D) / (2 * a): x2 = (-b + D) / (2 * a)
PRINT "x1="; x1, "x2="; x2
END IF
END IF
END IF
END IF
END
Может имелись в виду <span>счетно-перфорационные машины?
Если да, то такая машина была придумана в конце 19 века </span><span>Германом Холлеритом(Америка).
Эту машину можно сравнить с машиной Бэббиджа. Если в машине Бэббиджа перфокарты использовались для представления программы, то в этой - для хранения числовой информации. Эти машины делали сортировку, сортировку, вывод на печать числовых таблиц и перфорацию. Благодаря этой машине решались простые задачи статистической </span><span>обработки, бухгалтерского учета и так далее.</span>
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
