Царевна-лягушка съедает ежедневно на 20% комаров больше, чем в предыдущий день, и еще 2 комара. через сколько дней количество съеденных комаров в день превысит 30, если в первый день было съедено 12 комаров. воспользовавшись словесным алгоритмом, заполните шаблон блок-схемы и составьте программу для решения .

Var mosquito : integer; day, sum : integer; begin day : = 1; mosquito : = 12; sum : = 0; repeat mosquito : = trunc(mosquito * 1.2) + 2; day : = day +1; sum : = sum + mosquito; writeln('   day   mosquito  sum); until sum > 100; writeln(day); end

на выходе 109

 

 

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

program xxx;

  var i, j, k, min : integer;

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

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

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.