Выполните задания по теме «Программирование циклов на паскале»:1.Определите, что будет напечатано в результате следующего алгоритма.Var s, k:integer;begins:=0;For k:=1 to 12 do s:=s+5;writeln(s);end.2.Написать программу для вывода на экран кубов чисел от A до B, которые вводит пользователь.3.Написать программу:Найти сумму n элементов следующего ряда чисел:1, -0.5, 0.25, -0.125…… Количество элементов (n) вводится с клавиатуры4.Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, …, 1 кг конфет.Написать программу для решения этой задачи5. написать программу вывода на экран натуральных чисел от 1 до 9​

Которые вы можете предложить в магазин первому

.

.

.

шсди

Объяснение:

Вы можете уменьшить размер файлов и сэкономить пространство на диске с сжатия рисунков в документе. Параметры сжатия уменьшают как размер файл, так и размеры рисунков, в зависимости от того, как планируется использовать изображение, например для просмотра на экране или в сообщении электронной почты. Сжать можно все рисунки в файле или только специально выделенные.

Если документ сохранен в более старом формате DOC, то параметр "Уменьшить размер файла" не будет доступен в меню "Файл". Чтобы использовать параметр "Уменьшить размер файла", сохраните документ в новом формате DOCX.

Если будете сдавать в тестирующей системе, то вместо string, лучше использовать массив char - работает быстрее.

var n,i,k,p,mx,mxj: integer;

   s: array[1..100000] of char;

begin

 readln(n);

 for i:=1 to n do read(s[i]);

 k:=0; p:=0;

 mx:=0; mxj:=0;

 for i:=1 to n do

 begin

   if s[i]='G' then k:=k+1

   else

   begin

     if p=1 then

     begin

       p:=0;

       if s[i-1]='G' then  

       if (k>mxj) then mxj:=k;

       k:=0;

     end

     else

     begin

       if k>0 then p:=1;

       if k>mx then mx:=k;

     end;

   end;  

 end;

 if mx>mxj then k:=mx+1

 else k:=mxj+1;

 if k=1 then k:=0;

 writeln(k);

end.