Дано 2 символьні матриці. Знайти № рядків, що містять найбільшу кількість цифр. Паскаль . До ть !

Слово «алгоритм» происходит от имени великого Персидского учёного Мухаммеда аль-Хорезми́, жившего в первой половине IX ве́ка (точные годы его жизни неизвестны, но считается, что он родился около 780 года, а умер около 850). «Аль-Хорезми» означает «из Хорезма» (исторической области в нынешнем Узбекистане, центром которой был город Хива).

Около 825 года аль-Хорезми написал сочинение, в котором впервые дал описание придуманной в Индии позиционной десятичной системы счисления. К сожалению, арабский оригинал его книги не сохранился, так что её оригинальное название нам неизвестно. Аль-Хорезми сформулировал правила вычислений в новой системе и, вероятно, впервые использовал цифру 0 для обозначения пропущенной позиции в записи числа (её индийское название арабы перевели как as-sifr или просто sifr, отсюда такие слова, как цифра и шифр). Приблизительно в это же время индийские цифры начали применять и другие арабские учёные. В первой половине XII века книга аль-Хорезми в латинском переводе проникла в Европу. Переводчик, имя которого до нас не дошло, дал ей название «Algoritmi de numero Indorum» («Индийское искусство счёта, сочинение Аль-Хорезми»).

Таким образом, мы видим, что латинизированное имя аль-Хорезми было вынесено в заглавие книги, и сегодня ни у кого нет сомнений, что слово «алгоритм» попало в европейские языки именно благодаря этому сочинению. Однако вопрос о его смысле длительное время вызывал ожесточённые споры. На протяжении многих веков происхождению слова давались самые разные объяснения.

Одни выводили algorism из греческих algiros (больной) и arithmos (число). Из такого объяснения не очень ясно, почему числа именно «больные». Или же лингвистам больными казались люди, имеющие несчастье заниматься вычислениями? Своё объяснение предлагала и знаменитая энциклопедия Брокгауза и Ефрона (1890 год). В ней алгорифм (кстати, до революции использовалось написание алгориѳм, через «фиту») производится «от арабского слова Аль-Горетм, т. е. корень». Разумеется, эти объяснения вряд ли можно счесть убедительными.

ответ:

uses graphabc;

var xx,yy,u: integer;

procedure growl(x,y,r: integer);

var i: byte;

begin

for i: =1 to r do

    begin

    circle(x,y,i);

    sleep(5);

    end;

end;

procedure growr(x,y: integer);

var i: byte;

begin

for i: =1 to 20 do

    begin

    ellipse(x-5,y-(i),x-(i*3),y+(i));

    ellipse(x+5,y-(i),x+(i*3),y+(i));

    ellipse(x-(i),y-5,x+(i),y-(i*3));

    ellipse(x-(i),y+5,x+(i),y+(i*3));

    sleep(3);

    end;

end;

procedure fall;

var r,prer,i: byte;

    x,y: integer;

begin

for i: =1 to 10 do

    begin

x: =random(160)-80+windowwidth div 2;

prer: =0;

r: =random(10)+10;

for y: =80+windowheight div 2 to windowheight+30 do

    begin

    setpencolor(clwhite);

    circle(x,y-1,prer);

    setpencolor(clblack);

    circle(x,y,r);

    prer: =r;

    sleep(3);

    end;

    end;

end;

procedure growd (x,y: integer);

var i: byte;

begin

for i: =20 downto 5 do

    begin

    clearwindow;

    setbrushcolor(clgreen);

    ellipse(x-5,y-(20),x-(60),y+(20));

    ellipse(x+5,y-(20),x+(60),y+(20));

    ellipse(x-(20),y-5,x+(20),y-(60));

    ellipse(x-(20),y+5,x+(20),y+(60));

    setbrushcolor(rgb(255,255-((20-i)*10),255-((20-i)*;

    circle(x-i,y-i,i);

    circle(x+i,y-i,i);

    circle(x+i,y+i,i);

    circle(x-i,y+i,i);

    sleep(5);

    end;

end;

var j: integer;

begin

repeat

setbrushcolor(clgreen);

growr(windowwidth div 2,windowheight div 2);

setbrushcolor(clwhite);

for j: =1 to 360 do

    if j mod 10=0 then

    begin

        xx: =round(windowwidth div 2+20*cos(pi*(u+(j*10))/180));

        yy: =round(windowheight div 2+20*sin(pi*(u+(j*10))/180));

    growl(xx,-j) div 10));

    end;

sleep(100);

fall;

growd (windowwidth div 2,windowheight div 2);

sleep(100);

until false;

end.

объяснение: