Сколько раз выполнится цикл: i:=6; while i<6 do i:=i+3
сделать в программе паскаль

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -

х+54=х+у

х-х+54=у

у=54(ор)-во 2-ой корзине

х=54+38=92(ор)- в 1-ой корзине

92-27=65(ор)- в 3-ей корзине.

var a: array [1..10] of integer;

s,i,c,b: integer;

begin

  read(c,b,n);

  randomize;

  for i : = 1 to n do

        a[i]: = random(b) -c+1;

  for i: = 1 to n do

        if i mod 2 = 0 then s: =s+1;

  writeln(s);

end.

пусть наше число записывается в виде abc. тогда в системе счисления с основанием x числа abc и abcabc выражаются следующим образом:

abc = ax^2 + bx +c (1)

abcabc = ax^5 + bx^4 + cx^3 + ax^2 + bx + c = x^3(ax^2 + bx + c) + (ax^2 + bx + c) = (x^3 + 1)(ax^2 + bx + c) (2)

из условия следует, что (2) должно равняться (1), умноженному на 4097:

(x^3 + 1)(ax^2 + bx + c) = 4097*(ax^2 + bx +c) => х^3 = 4096 => х = 16

ответ: основание системы счисления равно 16 (т.е. это шестнадцатиричная система счисления).