Нужно составить программу в паскале царевна-лягушка съедает ежедневно на 20 % комаров больше, чем в предыдущий день, и еще 2 комара. через сколько дней количество съеденных комаров в день превысит 100, если в первый день было съедено 12 комаров. воспользуйтесь словесным алгоритмом. 1)i: = 1 2)s: =12 3)если s< =100, то п.4, иначе 6 4)i: =i+1 5)s: =1.2*s+2, перейти к п.3 6)вывод i 7)конец

Var s,i: real; begini: =1; s: =12; if s< =100 then i: =i+1 elses: =1.2*s+2; writeln(s); end.так попробуй

Const n=20; var a: array[1..n]of integer; p,s: real; i: integer; begin   p: =1; {начальное значение р, чтобы при умножении произведение не было =0}       for i: =1 to n do             begin               a[i]: =random(20); {массив заполняется случайными числами [0; 20)}                 write(a[i]: 4); {массив выводится на экран}                       if i< =10 then {если номер элемента < =10}                         s: =s+a[i]     {то считаем сумму элементов}                       else                         p: =p*a[i]; {иначе, т.е если номер элемента > 10 считаем произв  ]             end;     writeln;   writeln('сумма =  ',s: 4: 0,'   p=  ',p: 4: 0)     {выводим сумму и произвед на экран}   ; writeln('среднее =  ',(p+s)/2);   {выводим среднее} end.

Const n=10; var a: array[1..n]of integer; i,j,buf: integer; begin     for i: =1 to n do           begin               a[i]: =random(100);               write(a[i]: 4);           end; for i: =1 to n-1 do     for j: =i+1 to n do           if (a[i]mod 10+a[i]div 10)> (a[j]mod 10+a[j]div 10)then                 begin                     buf: =a[i];                     a[i]: =a[j];                     a[j]: =buf;                 end; writeln; writeln('new: '); for i: =1 to n do     write(a[i]: 4); end.