<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var t:integer;
var k:=0;
repeat
Read(t);
if t.ToString.Where(c->c='5').Count=2 then k+=1
until t=0;
Writeln('Количество чисел с двумя пятерками равно ',k)
end.
K:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<>0 then k:=k+1;
Это самая крупная библиотека , существовавшая в 3-4 веках н.э. Во времена Юлия Цезаря, случился пожар, и большая часть библиотеки была уничтожена. Ходили слухи, что все таки она сохранилась. Но результатов никаких нет и поныне. Сейчас на ее месте находится новая библиотека "Библиотека Александрина".
Это как то в кратце.