Вывести на экран элементы массива которые являются делителями числа х (х-вводится с клавиатуры (элементов массива: 10. массив вводится cлучайным образом) решите и опишите полностью, только решение должо быть простым не через процедуры а то я на 1 курсе мы еше это не проходили)

var

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

  i,x: integer;

begin

  randomize;

  for i: =1 to 10 do 

    begin

    a[i]: =random(14)+1;

    write (a[i],' ');

    end;

  writeln;

  write ('x = '); readln(x);

  for i: =1 to 10 do

    if x mod a[i] = 0 then write (a[i],' ');

  writeln;

  readln;

end.

Программа должна вывести 89, то есть n после цикла должна стать равной 89. изначально n была равна 5, каждый повтор цикла к n прибавляется 6. определим количество повторов цикла (сколько раз к n должна быть прибавлена 6 для получения числа 89): 5+6*x = 89 6*x = 84 x = 14 то есть цикл должен совершить 14 повторов. каждый раз к s прибавляется d (которую нужно найти), изначально s = 83. нам удобнее прибавлять d к нулю, а не к 83, поэтому вычтем из 1200 83 и приравняем s к нулю. условие в цикле теперь будет выглядеть как s < = 1117 нам нужно наибольшее s, при котором цикл совершает 14 повторов. чем больше значение d, тем меньше повторов совершит цикл. найдем наименьшее целое d, при котором цикл совершает 13 повторов, и возьмем предыдущее целое, это и будет наибольшее d, при котором цикл совершит 14 повторов. цикл завершается после того, как условие перестанет выполняться, то есть при s > 1117. составим неравенство: 13*d > 1117 d > 85,92 то есть наименьшее d, при котором цикл совершит 13 повторов - 86, значит наибольшее d, при котором цикл совершит 14 повторов - 85. ответ 85

Первый вопрос: "эта монета настоящая? "  второй вопрос: "твой сосед - хитрец? "  и только после второго ответа начинаем мыслить.  - если на второй вопрос ответ "да", то ответчик не лжец (потому, что тогда ответ правдив). значит, или он хитрец, который соврал отвечая на второй вопрос, или он правдивец. в обоих случаях, ответ на первый вопрос - правда.  - если на второй вопрос ответ "нет", то ответчик не правдивец (так как это была бы ложь). значит, он или лжец или хитрец, ответивший правду. значит, ответ на первый вопрос - ложь.- то есть, если ответ на второй вопрос "да", то монета настоящая, а если ответ "нет", то фальшивая.