Втаблице work хранятся данные о количестве заказов, принятых фирмой "алоэ" с первого по 15 ноября. (work[1] – число заказов, принятых 1 ноября, work[2] – 2 ноября и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования. 1.алгоритмический язык алг нач целтаб work[1: 15] цел k, m work[1] : = 5; work[2] : = 4 work[3] : = 5; work[4] : = 7 work[5] : = 6; work[6] : = 12 work[7] : = 7; work[8] : = 3 work[9] : = 9; work[10] : = 7 work[11] : = 0; work[12] : = 9 work[13] : = 1; work[14] : = 0 work[15] : = 8 m : = 0 нц для k от 1 до 15 если work[k] < 7 то m : = m + 1 все кц вывод m кон 2.бейсик dim work(15) as integer dim k, m as integer work(1)= 5: work(2)= 4 work(3)= 5: work(4) = 7 work(5)= 6: work(6)= 12 work(7)= 7: work(8)= 3 work(9)= 9: work(10)= 7 work(11)= 0: work(12)= 9 work(13)= 1: work(14)= 0 work(15)= 8 m = 0 for k = 1 to 15 if work(k) < 7 then m = m + 1 end if next k print m 3.паскаль var k, m: integer; work: array[1..15] of integer; begin work[1] : = 5; work[2] : = 4; work[3] : = 5; work[4] : = 7; work[5] : = 6; work[6] : = 12; work[7] : = 7; work[8] : = 3; work[9] : = 9; work[10] : = 7; work[11] : = 0; work[12] : = 9; work[13] : = 1; work[14] : = 0; work[15] : = 8; m : = 0; for k : = 1 to 15 do if work[k] < 7 then begin m : = m + 1; end; writeln(m); end. , поясните как решать, серьёзно не доходит)

Пояснения к задаче - в прилагаемом файле

Судя по полагается то ,  что они играли не зависимо за какую именно .  посчитаем сколько вообще было встреч , у команды первой лиги команд в 2 раза больше так как    .  посчитаем отдельно каждую встречу внутри команд ,и между разными .    по первой лиги это число сочетаний по высшей лиги это число сочетаний а между собой очевидно в сумме встреч.  если не было ничьи то очевидно одно из двух  1) либо   команда проиграет  2) либо команда выиграет  число выигрышей и проигрышей будет равна количеству сыгранных игр . то есть если всего у команда  побед то  пусть количество выигрышей команды первой лиги равна  , то другой что бы число делилось на 8 , очевидно что n либо само должно быть кратно 8 , либо     должно делится на 8 , подходит   при нем все выполняется 

ответ:

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.

объяснение: