Неформальний кодекс поведінки, за яким певним чином регулюється спілкування користувачів в Інтернеті між собою Спам Право Етикет Смайлик Питання №2 ? Для передавання емоцій в Інтернеті використовують Смайлики Жести Міміка Етикет Питання №3 ? Вид шахрайства, метою якого є виманювання персональних даних у клієнтів онлайнових аукціонів, сервісів з переказу або обміну валюти, інтернет-магазинів тощо. Фішинг Хакерська атака Ботнет-мережі «Крадіжка особистості» Питання №4 ? Як називаються листи, надіслані з метою реклами? Спам Огляд Реклама Вкладення Питання №5 ? Потрібно чітко формулювати тему повідомлення та не лишати поле Тема порожнім Відсутня правильна відповідь Частково погоджуюсь Не погоджуюсь Погоджуюсь Питання №6 ? Рекомендується відправляти великі за обсягом вкладення до листа Не погоджуюсь Відсутня правильна відповідь Частково погоджуюсь Погоджуюсь

1. етикет

2. смайлик

3. фішинг

4. спам

5. погоджуюсь

6. не погоджуюсь

var

  a, b, n, i, j, t: integer;

  s, sn: string;

begin

    write ('введите начало отрезка: ');

    readln (a);

    write ('введите окончание отрезка: ');

    readln (b);

    n : = 0;

    for i : = a to b do begin

      s : = inttostr (i);

t : = 1;

for j : = 1 to length (s) do

        t : = t * strtoint (s[j]);

      if t > n then begin

        sn : = s;

        n : = t;

      end;

    end;

    writeln ('число с наибольшим произведением цифр: ' + sn);

end;

Если будете сдавать в тестирующей системе, то вместо 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.