2. что будет выведено на экран в результате var a : array (1..20) of integer; i, m, n, x: integer; begin for i: = 1 to 20 do begin a (i) : = (i + 4) mod 5; end; m : = a (1); n : = a (1); for i: = 1 to 20 do begin if a[i] > m then m : = a[i]; if a (i) < n then n : = a[i]; end; x : = (m - n) mod 5; for i: = 1 to 20 do begin if a[i] = x then write(i, ' '); end; end.

ответ:

for i: = 1 to 20 do begin

a (i) : = (i + 4) mod 5;

end;

тут массив забивается числами от 0 до 4

for i: = 1 to 20 do begin

if a[i] > m then

m : = a[i];

if a (i) < n then

n : = a[i];

end;

здесь ищем макс(м) и мин(н) этого массива, они конечно равны 4 и 0 соответственно.

х=(m - n) mod 5=(4 - 0) mod 5=4

for i: = 1 to 20 do begin

if a[i] = x then

write(i, ' ');

end;

тут через пробел выводиться номера элементов, чье значение совпадает с х. а это 1 6 11 16

вот и ответ: 1 6 11 16

ответ:

1.

13, вроде бы

1) абдик

2) абджк

3) абвдик

4) абвджк

5) абвжк

6) авжк

7) авджк

8) авдик

9) агек

10) агвжк

11) агвджк

12) агвдик

13) агежк

2.

1.абеил

2.абезл

3.абвеил

4.абвезл

5.абвзл

6.авзл

7.авезл

8.авеил

9.агзл

10.агжзл

11.агжкл

12.адгзл

13.адгжзл

14.адгжкл

15.аджзл

16.аджкл

3.количество путей в город л = сумме путе в города и, з, ж и к (и(3)+з(10)+ж(3)+к(3))=19

4.правильный ответ: 12.

5.в подобных анализ начинают с конечного города (в нашем случае - g). в город g можно попасть из d, f и e ⇒ k(g) = k(d)+k(f)+k(e).

аналогично

k(d) = k(b) + k(f) = 2 + 4 = 6;

k(f) = k(b) + k(c) + k(e) = 2 + 1 + 1 = 4;

k(e) = k(c) = 1;

k(b) = k(a) + k(c) = 1 + 1 = 2;

k(c) = k(a) = 1

k(g) = k(d)+k(f)+k(e) = 6+4+1 = 11

объяснение:

вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:

function cycle(a, b) {

    while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a

    return a;

}

но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:

var a,b: integer;

begin

    a : = 32;

    b : = 32;

    while not (a = b) do

    begin

        if a > b then begin

            a : = a - b;

        end else

            b : = b - a;

    end;

    writeln(a);

end.