Фрагмент программы: K:=1; While (A[K] <>X) AND (K<=10) Do K:=K+1;здесь X=7, а в качестве элементов массива введены числа:2, 3, 5, 7, 9, 12, 0, 7, 6, 7. После исполнения фрагмента программы K будет равно
1)8
2)1
3)10
4)4

pust' x chaek na pervom ostrove,a y na vtorom.

togda iz uslovia mozhno sostavit' sistemu:

x+y=79;

x-15-12=y+12;

togda y=x-39;

x+(x-39)=79;

x=59;

y=59-39=20.

otvet: 59 chaek na pervom ostrove, 20 na vtorom.

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.

десятичная   двоичная         восьмеричная           шестнадцатиричная

1)

10                 1010                               12                                       a

18                 10010                             22                                     12

322               101000010                   502                                   142

2)

10                 1010      

74                                                         112      

92                                                                                                 5c  

числа снизу обозначают систему счисления

ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед